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CHAPTER S 
SAVE MEMORY ON TAPE 

S-0. This chapter describes the @SAVE command and its 
counterpart in assembly program. The purpose of @SAVE is to 
copy the content of a block of the volatile RAM onto the 
non-volatile tape so that it can be retrieved later. The 
retrieving is called "Load" and is discussed in Chapter L. 

S-l. Save Machine Language Programs 



Machine Language programs (or a block of memory of arbitrary 
content) can be copied on tape with the BASIC command: 

@ (#d)SAVEn,addr,lnth(,aust) 

where d is the optional drive number, n is the file number, 
addr is the address of the block of memory, lnth is the length 
of the block, and aust is the optional auto-start address. All 
these parameters can be BASIC expressions with the 
limitations : 



d should be between and 7 

n should be between 1 and 9 9 

addr, . lnth , aust should be between* -32768 



and 32767 



*NOTE : In ESF firmware version 3.2, these three parameters 
cannot be expressions, and must be numbers between and 
65535. In version 4.1 these parameters can be either numbers 
or BASIC expressions. However, due to the way BASIC handles 
integers, the range of value is between -32768 and 32767. Hex 
0000 through 7FFF are integers through 32767. Hex 8000 
through FFFF are integers -32768 through -1. 

nal parameter aust is recorded on tape and used by 
etermine what to do after the file is read back from 
oaded into memory. If this option is not specified, 
re will supply the default value 12309 (Hex 3015) 
ses the firmware to return control to BASIC. If the 
nguage program is a stand-alone program (as opposed 
routine or patch to BASIC or other programs) , it is 
d that the execution starting address should be used 



The optio 


@L0AD to d 


tape and 1 


the firmwa 


which cau 


machine la 


to a sub 


recommendei 


as aust. * 



*NOTE : The ESF firmware version 3.2 has no means to override 
the autostart, and thus, much stand-alone software is shipped 
with the default aust 12309 so that the user can make copies. 
This is no longer necessary with version 4.1. If the user 
wants to override autostart to make copies, he (or she) should 
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press and hold the shift key while loading the program. The 
firmware will not start to execute the loaded program, but 
display the address, length, and autostart on the screen on 
completion of loading. 

The assembly language counterpart of the above BASIC command 
is: 

LD HL,(40B1H) 

INC HL ; Optional, set drive # 

LD (HL) ,0F0H+drive # 

LD A, file # 

LD HL, address of block 

LD BC, length of block 

LD DE, autostart* 

CALL 300CH 

*NOTE: The autostart must be supplied and is not an optional 
parameter. 301 5H can be used if control should be returned to 
BASIC after loading. An autostart of 0000 should be used only 
if the block to be saved is a BASIC program. 



S-2. Restrictions and Other Comments 



In principle, the SAVE command or assembly program in the last 
section can be used to save any part of the memory, including 
the ROM and the video refresh RAM. However, the following 
should be noted: 

(a) When used to save the video refresh RAM (Hex 3C00 to 
3FFF) , the unwanted message: "WRITING.." will also be 
recorded. Furthermore, after the loading, the message: 
"DONE" will also show up on the screen. One way to 
avoid this is to disable the display output routine 
before the SAVE and LOAD command, and re-enable it 
afterwards. For example: 

100 REM compose a beautiful picture 



600 POKE 16414,87 : REM disable display output 

610 @SAVE3, 15360, 1024 

620 POKE 16414,88 : REM enable display output 

700 REM do other things 
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900 POKE 16414,87 

910 0LOAD3 

920 POKE 16414,88 

This method is somewhat unsafe. If an error occurred 
while the display output is disabled, the error message 
will not be displayed, and the computer will appear to be 
dead. One can recover from this by typing "(BREAK)" 
and "POKE 16414,88 (Enter)" blindly. 

(b) The RAM location Hex 401A is used by the ESF firmware 

(version 4.1). If this location is included in the block 
to be saved, a "verify error" will occur during SAVE. 
Subsequently, a "checksum error" will occur during LOAD. 
There is no harm done in either case. 

(c) If the stack is included in the block to be saved, a 
"verify error" will occur during SAVE. No harm is done. 
If the stack at load time is included in the block to be 
loaded, the result is usually catastrophic. The stack at 
load time is independent of the stack at save time, and 
is not directly under the control of the programmer. For 
BASIC, the top of stack is usually about 50 bytes below 
the top of available RAM and is pointed by the contents 
of location Hex 40E8-40E9. After SYSTEM, the top of 
stack is usually at Hex 4288. 



S-3. Save BASIC Programs 



The BASIC command to save the current BASIC program is: 
§ (#d)SAVEn 

where d is the optional drive number, which can be an 
expression with value between and 7, and n is the file 
number, which can be an expression with value between 1 and 
99. This command will cause the firmware to find the block of 
memory, which contains the current BASIC program, save this 
block with an autostart of 0000. Assembly program can use the 
same code as in section S-l to save a BASIC program, but the 
address and the length of the block must be given. The 
beginning address of the BASIC program is usually stored in 
the location Hex 4 0A4-40A5. The end of BASIC program is 
marked by three consecutive bytes of zeros. A subroutine at 
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Hex 1AF8 can be used to find this marker. 



CALL 

INC 

LD 

SUB 

SBC 

EX 

PUSH 

POP 

LD 

LD 

CALL 

The autostart 
BASIC program. 



1AF8H 

HL 

DE, (40A4H) 

A 

HL,DE 

DE,HL 

DE 

BC 

DE,0 

A, file # 

300CH 



find end of BASIC 
HL -] end + 1 
DE -] begin of BASIC 
clear carry-borrow 
HL = length of BASIC 
HL -] begin 

;BC = length 

; autostart must be 

;SAVE 



= is a special flag for "LOAD" to relocate 
See Chapter L for details. 



S-4. Sequence of Events During SAVE 



The files on tape are separated and identified by file marks. 
The @NEW command will write an "End of file 0" at the 
beginning of the tape. The @SAVE1 command will execute the 
following sequence: 

(a) Start the motor and search for "End of file 0". 

(b) When found, start to write the block on tape. 

(c) When finished with the block, keep motor running to leave 

a gap on tape. 

(d) After the gap, write "End of file 1" mark. 

(e) Search for "End of file 0" again. 

(f) When found, start to verify the block on tape with what 

is in memory. 

(g) When finished with the block, stop the motor. Because of 

the gap in step (c) , the tape will stop before the 
"End of file 1" reaches the head. 



The @SAVE2 command will be executed similarly, except all 
file numbers are one bigger now. 



the 



S-5. Speedy SAVE 



Using the firmware, it takes at least two loops to finish the 
@NEW, and at least one loop to @SAVE each file. This can be 
very time consuming to copy a long tape with many files. The 
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following sequence can be used to save files without verify; 

(a) Instruct the operator to insert a blank tape into the 
drive. 



(b) Execute the following to find the beginning of tape: 

CALL 3000H 

(c) Ready the file in memory to be saved. (See Section L-5.) 

(d) Execute the following to write "End of file-1" and then 
the block: 



FIN: 



LD 


A, (file #) 


; f ile 


DEC 


A 


; file-1 


CALL 


3021H 


; write "End of file-1" 


JR 


NZ,FIN 




CALL 


3733H 


; motor on again 


LD 


A, (file #) 




LD 


L,A 




CALL 


Z,3592H 


; start the block 


JR 


NZ,FIN 




LD 


HL, (addr) 




CALL 


363BH 


; write the block addr 


JR 


NZ,FIN 




PUSH 


AF 


;wait a while 


LD 


A, (IX) 




POP 


AF 




LD 


HL, (autostart) 




CALL 


363BH 


; write the autostart 


JR 


NZ,FIN 




RET 


NZ 




LD 


IX, memory 


; actual addr of block 


LD 


HL, (length) 




CALL 


3567H 


; write the block 


NOP 




; finished, ck error if 



(e) Repeat step (c) and (d) for all files to be saved. 

(f) Execute the following to write the last "End of file" 

LD A, (file #) 
CALL 3021H 



(g) Inform the operator that the tape is finished. 

A program called "COPYCAT" uses the method outlined above to 
enable user to write BASIC program to control the copy 
process. Effective use of "COPYCAT" calls for two or more 
drives in the system. 



ESF ADVANCED PROGRAMMER'S GUIDE PAGE 6 

CHAPTER L 
LOAD MEMORY FROM TAPE 



L-0. This chapter is an attempt to explain the actions of the 
9LOAD command. These actions are controlled by the parameters 
given during the 8SAVE, which is described in chapter S, and 
also by the conditions during LOAD. 

L-l. Loading Machine Language Programs 

The so-called machine language program can actually be any 
memory dump. This kind of file is identified by a non-zero 
autostart. The action of 9L0AD is rather simple. The file is 
read into the memory as specified during QSAVE, no check is 
made on where it is going to be loaded or how long the block 
is. If this block covers the video refresh RAM, the screen 
will show it. If this block overlays the stack, the system 
will crash. After the block is read, (and if the system did 
not crash) , the firmware will check to see if the "Shift" key 
is depressed. If so, the block address, length, and the 
autostart will be displayed on the screen, and the FD error 
code is passed back to BASIC. If the "Shift" key is not 
depressed, the firmware will jump to the autostart address. 
Included in the firmware is the routine at Hex 3015, which 
will restore the registers and make a smooth return to the 
BASIC interpreter. Thus, SAVEd files with autostart set to 
the default Hex 3015 will not disrupt the normal execution of 
BASIC program with an @LOAD embedded in the code. 



L-2. Loading BASIC Programs by Direct Command 



A BASIC program saved on tape is identified by the zero 
autostart. The action of @LOAD does not depend on whether the 
"Shift" key is depressed but does depend on whether the @LOAD 
command is a direct command typed on the keyboard or not. If 
it is a direct command: 

(a) The block length is checked against the total available 
memory space calculated from: 

LD HL, (40A0H) ; string space 
LD DE,(40A4H) ;BASIC begin 
SBC HL,DE 

LD DE,100 ; stack space 

SBC HL,DE 
where (40A0H) is set by the CLEAR n command to be: 
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(40BlH)-n with default value of n = 50, and (40B1H) in 
turn is usually set by the "MEMORY SIZE?" at power up, or 
subsequently changed by the ESF firmware or other 
programs . 

(b) If there is enough memory, the tape is loaded into memory 
pointer by the content of locations Hex 40A4-40A5, and 
not by the parameters recorded during @SAVE. 

(c) After it is loaded, a special subroutine is called to 
clean up the links inside the loaded BASIC program. This 
is necessary because the contents of Hex 40A4-4 0A5 during 
@SAVE and @LOAD may be different. As a consequence, the 
BASIC program is loaded into a different block of memory 
and the links inside are all wrong. 

(d) All the variables and strings are cleared. Control is 
back to BASIC direct mode. 



L-3. Loading BASIC Program by Another BASIC Program 



When the @LOAD is executed as part of a BASIC program, the 
actions taken by the ESF firmware is quite different. It is 
designed to be able to do program overlay or chaining. 

(a) The block length is checked against the available memory 
space exclusive of the variable already defined: 

LD HL, (40F9H) ;variable space 

LD DE,(40A4H) ;BASIC begin 

SBC HL,DE 
where (40F9H) is set by the CLEAR command to point one 
above the end of the current BASIC program. Thus, in 
order to have enough space to load, the current program 
must be larger than or equal to the one being loaded. 
See Section L-4 for methods to overcome this restriction. 

(b) and (c) Same as in Section L-2. 

(d) All the variables and strings are preserved. Control is 
back to BASIC to start executing the first statement of 
the program just loaded. 
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L-4 . Program Overlay 



When a program is too big to fit into the available memory, it 
is often possible to divide the big program into logically 
operable small segments and load only one segment into memory 
at a time. The special actions of 0LOAD described in Section 
L-3 make this possible to do in the TRS-80 system. 

For example, for some unknown reason, one decides to write an 
Editor-Assembler-Debugger in BASIC. It is clear that during 
editing, the code for Assemble and Debug need not be in 
memory, and vice versa. Thus, one can divide this into three 
segments. In the Editor segment, you can type the command "A" 
and the program will do an @L0AD2 which will wipe out the 
Editor segment and load in and start the Assembler. Or, you 
can type the command "Z" , and the editor will do an @L0AD3 
which will also wipe out the Editor and load in and start the 
Debugger. While in the Debugger, the command "E" will cause 
an @L0AD1 and load back the Editor. One important point is 
that during all this loading and reloading, the variables and 
strings - which contain the source and object code you are 
trying to edit, assemble, and debug - should always be 
preserved and available to the different segments of the 
program. Another perhaps less important thing is the new 
segment being read in should start automatically. The @LOAD 
does precisely these. 

The segmentation of the above example is obvious. But even 
less obvious problems can always be divided and conquored. The 
few problems with overlay on TRS-80 are: 

(a) The segment that is loaded first by direct command @LOAD 
has to be the largest segment. Otherwise, there will be 
a OM error when it tries to @LOAD a larger segment. One 
way to overcome this is to put two POKE'S in the first 
segment: 

10 POKE 16633, low-order 

20 POKE 16634, high-order 
where the low-order, high-order are the contents of 
location 16633, 16634 respectively when the largest 
segment is @LOAD by direct command. 

(b) Some of the strings that were defined may appear to be 
wrong after overlay. This can be avoided if one does not 
use assignments like: 

10 A$="this one" 
but use instead: 

10 A$="this one"+"" 



ESP ADVANCED PROGRAMMER'S GUIDE 



PAGE 9 



(c) READ data commands get lost or cause an OD error. The 
solution is to put a RESTORE command at the beginning 
of that segment. 



L-5. Loading Programs by Assembly Program 



The firmware does not support asssembly programs to load 
programs. But this can be done and is used in the "COPYCAT" 
program described in Section S-5. 





LD 


HL,max-blocl 


k size 




PUSH 


HL 






LD 


H,file # 




LD2: 


CALL 


3734H 


; motor on 


LD3: 


CALL 


3649H 


;find sync 




JR 


NZ,LD5 






LD 


A,D 






OR 


A 






JR 


LD3 


;data file 




JP 


M,LD3 


;end of file 




SUB 


H 


; found? 




NOP 








JR 


NZ,LD3 


;not yet 




CALL 


370BH 


; found it 


LD5: 


JP 


NZ, ERROR 






LD 


H,D 






LD 


(addr) ,HL 


; save addr 




LD 


IX, memory 


; actual addr 




PUSH 


HL 






INC 


HL 






POP 


HL 






CALL 


370BH 


;read 2 bytes 




JR 


NZ,LD5 






LD 


H,D 






LD 


(autostart) , 


, HL ;save autostart 




LD 


IY,LD1 


;fake call 




JP 


31B8H 




LD1: 


LD 


(length) ,DE 


; save length 
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CHAPTER D 
DATA I/O 



D-0. This chapter discusses the steps needed in assembly 

programs to output or input a data file. The Data I/O program 

for BASIC and a patch for Radio Shack's EDTASM are used as 
examples. 



D-l. Output a Data File 

(a) To open the file: 

(i) Define a buffer, and indicate that the buffer is 
empty. 
(ii) Find the "End of file-1" : 
LD A, file # 
CALL 300FH 

Note that this will start the drive motor and can take up to 
one full loop to find the beginning of the file. If the user 
knows that the position of the tape is correct, step (ii) can 
be omitted and thus save a considerable amount of time. 

(b) To output a byte: 

(i) Put the byte in the buffer, and move the buffer 
pointer by one. 
(ii) If buffer full, write it on tape: 
LD HL,addr of buffer 
LD BC, length of buffer 
CALL 3006H 
indicate that the buffer is empty again. 
(iii) Return. 

(c) To close the file: 

(i) Write buffer if not empty, and write end of file: 
LD HL,addr of buffer 
LD BC,# of bytes in buffer 
LD A,file # 
CALL 3027H 
(ii) Free the buffer. 
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D-2. Input a Data File 



(a) To open the file: 

(i) Define a buffer and indicate that it is empty, 
(ii) Find the "End of file n-1" 
LD A, file # 
CALL 300FH 

(b) To get a byte: 

(i) If buffer empty, read a record: 
LD HL,addr of buffer 
LD BC, length of buffer 
CALL 3003H 

LD (# of bytes in buffer) ,BC 

(ii) Get the byte from buffer. 

(iii) Decrease the # of bytes in buffer by one. 

(c) To close the file: 

Free the buffer. 



D-3. The Data I/O Program for BASIC 



The Data I/O program for BASIC supplied with every ESF follows 
the procedure described in Sections D-l and D-2. A listing of 
the program can be found in Appendix. This program is 
actually loaded into location 6C00H and relocated. All of the 
addresses in the listing marked with a single quote ' are 
changed to reflect the actual relocated addresses. 

Note that this is a buffered I/O and is quite different from 
the unbuffered TRS-80 cassette Data I/O. The following two 
programs will write identical tape files. 



Program 1 : 


10 


0OPEN1 










20 


FOR 1=1 TO 


10 




30 


0PRINT I 






40 


FOR J=l TO 


10000 




50 


NEXT J 






60 


NEXT I 






70 


@ CLOSE 




Program 2: 










10 


90PEN1 






20 


@PRINT 1,2, 


,3,4,5,6,7,8,9,10 




30 


§ CLOSE 
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Equivalent programs on TRS-80 cassette Data I/O will produce a 
much longer tape in case 1 as compared with case 2. 



D-4. Patch to Radio Shack's "EDTASM" 



A patch to Radio Shack's "EDTASM" to use ESF for source 
storage is shown on the next page as another example. 



/ -s 



4301 
4301 5C37 



4695 

4695 2AB140 

4498 J 905 



4023 
4D23 
4026 
4028 
4 D2 9 
4D2C 
402E 
4D31 
4034 
4035 
4H3A 
4D3? 
4B3A 
4D3B 
1D3E 
4D3F 
1D40 
4D41 
4D43 
4D45 
4D48 



3A2341 

D630 

F5 

CD0F30 

2012 

0112A3 

2A1541 

09 

E5 

C1 

21F05C 

F1 

CD2730 

C3 

E5 

E1 

C630 

E67F 

2IAE48 

C33147 



4D4B 3A2341 
4D4E B630 
4050 CDOF30 
4D53 20EC 
4055 0112A3 
4058 2A1341 
4D5B 09 
4D5C E5 
4D5D C1 



00100 
00200 
00300 
00400 
00500 
00600 
00700 
00800 
00900 
01000 
01100 
01200 
01300 
01400 
01500 
01600 
01700 
01800 
01900 
02000 
02100 
02200 
02300 
02400 
O2500 
02600 
02700 
02800 
02900 
03000 
03100 
03200 
03300 
03400 
03500 
03600 
03700 
03800 
03900 
04000 
04100 
04200 
04300 
04400 



ESF PATCHES TO "EDTA3H" 



PART 



PART 



PART 



URITE 



ERROR 



; PART 
READ 



N 1: KEYBOARD DEBOUNCE 
ORG 4301H 
DEFU 375CH 

t» 2: PROTECT HIGH MEMORY 
ORG 4695H 
LD HL,(40B1H) 



JR 

It 3: URIT 
ORG 
LD 
SUB 
PUSH 
CALL 
JR 
LD 
LD 
ADD 
PUSH 
POP 
LD 
POP 
CALL 
RET 
PUSH 
POP 
ADD 
AND 
LD 
JP 



469FH 

E SOURCE ON ESF 

4D23H 

A. ( 4123H) 

'0' 

AF 

300FH 

NZ. ERROR 

BC.-5CEEH 

HL.(4115H) 

HL.BC 

HL 

BC 

HL.5CF0H 

AF 

3027H 

7 

HL 

HL 

A,'0' 

7FH 

HL,48AEN 

4731H 



;FIND BOF 



;GET NEXT CH AFTER "U" 
;CONVERT IT TO FILE ft 



;-(BEGIN ADDR. OF S0URCE)+2 
J (END ADDR. OF SOURCE) 



JBC = LENGTH OF SOURCE 
; (BEGIN ADDR. OF SOURCE) 
JFILE # AGAIN 
;URITE FILE + EOF 



JIN CASE OF AN ERROR 
JCONVER ERROR CODE TO ASCII 

JFOINT TO MESSAGE 
JGO PRINT AND RECOVER 



!t 4: READ SOURCE FROM ESF 



LD 

SUB 

CALL 

JR 

LD 

LD 

ADD 

PUSH 

POP 



A,(4123H) 

'0' 

300FH 

NZ,ERR0R+1 

BC.-5CEEH 

HL,(4113H) 

HL.BC 

HL 

BC 



;GET CH AFTER "L" 
."CONVERT ASCII TO FILE it 
JFIND THE BOF 

'.-(BEGIN ADDR. OF S0URCE)+2 
J 'MAX MEMORY ADDR.) 



JMAX LENGTH OF SOURCE 



4D5E 21F05C 
4061 221141 
4D64 CD0330 
4D67 20D8 
4069 09 
4D6A 2B 
4D6B 2B 
106C 221541 
4D6F C9 
468A 
00000 TOTAL 



04500 
04600 
04700 
04800 
04900 
05000 
05100 
05200 
05300 
05400 
ERRORS 



LD 

LD 

CALL 

JR 

ADD 

DEC 

DEC 

LD 

RET 

END 



HL.5CF0H 

(4111H;,HL 

3003H 

NZ.ERROR+1 

HL.BC 

HL 

HL 

(4115H).HL 

463AH 



{(BEGIN ADDR. FOR SOURCE) 
;READ FILE 



(END ADDR. OF SOURCE) 
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CHAPTER T 
TAPE FORMAT 



T-0. This chapter deals with the tape format used in the ESF 
for TRS-80 and some of the inner details of the low level 
subroutines in the firmware. One does not need to know these 
details in order to use the ESF. One might even get more 
confused by reading it. This chapter is for the curious and 
the desparate. The curious should read it without taking it 
too seriously, and never try to use the subroutines named in 
it. The desparate should use this chapter as a guide, read 
the firmware listing carefully, worry about all the registers, 
count the machine cycles (hereafter referred to as TRS-80 
cycles) between input or output instructions, etc. If after 
all these, the desparation turns into frustration, the author 
of the firmware (and this manual) expresses his deep 
sympathy. 

T-l. Recording Method 



The so-called frequency modulation (FM) encoding is used in 
the ESF for TRS-80. This is the same method that is used in 
most single density floppy disks. Data (which also includes 
images of programs in this context) are written on the 
magnetic media one bit at a time in blocks called records or 
sectors. A magnetic flux change is written at the leading 
edge of each bit cell. An additional flux change is written 
at the center of the bit cell if, and only if, the bit is a 
"1". For the ESF, each bit cell is 150 micro- seconds, or 248 
TRS-80 cycles. 

The subroutine "WRBIT" in the ESF firmware will write n 
consecutive bits assuming that the I/O port number is in C 
register, the number n is in B register, and the bits to be 
written are in D register. This subroutine will also check 
the write-protect detector and the end-of-tape (EOT) detector. 
If either one is set, it returns a 01 or a 04 respectively in 
the A register, and an NZ in the F register. Otherwise, Z 
will be returned in the F register. 

"WRBIT" reverses the write-current every 248 TRS-80 cycles for 
each bit of data. (These are the "clocks".) It also reverses 
the current at 124 TRS-80 cycles if the particular bit is a 
"1". (These are the "data".) "WRBIT" takes 75 TRS-80 cycles 
before writing the first "clock" and 28 TRS-80 cycles after 
last "data" to return to the caller. The caller should use up 
21 TRS-80 cycles between calls to meet the 124 cycle 
requirement. Note that RAM location 401AH is used by 
"WRBIT" . 
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The "DJNZ RB2" loop of the subroutine "RDBYT" is responsible 
to read the bits back from tape. It loops either in the "JP 
P,RB4" loop, or the "JP M,RB5" loop for a negative going or a 
positive going "clock" respectively. Then it waits 175 TRS-80 
cycles and reads the polarity of the magnetic flux. If the 
polarity has changed, then the bit is a "1", else it is a "0". 
This bit is saved in the D register. (See next section for a 
full description of "RDBYT".) The 175 cycle wait is optimal 
for speed tolerance and other considerations to recover data 
with 248 cycle bit cell. 

T-2. Byte Format 



The 8 bits of a byte is written consecutively starting at the 
least significant bit (bit 7). In addition, a parity bit is 
written after the most significant bit (bit 0) . The parity 
bit is "1" if the total number of l's in the byte is even. The 
parity bit is "0" if the total number of l's in the byte is 
odd. This is called "odd parity", but ironically, "odd" 
parity makes the total number of flux changes "even" in FM 
recording. An even number of flux changes means the polarity 
of the magnetic flux ends up the same as it started with. This 
makes the parity bit very easy to generate or to check. 

The subroutine "WRBYT" in the ESF firmware will write the byte 
in the D register on tape. The parity bit is generated by 
forcing the polarity of the write current to be positive at 
the center of the parity bit cell. "WRBYT" will detect write- 
protect and EOT as it calls "WRBIT". "WRBYT" also adds the 
contents of D to register E for checksum. 

The subroutine "RDBYT" will read a byte from the tape and put 
it in the D register. The previous contents of D is added to 
RAM location 401AH for the checksum. "RDBYT" does not check 
the parity of the current byte, but does check that of the 
previous byte simply by looking at the polarity of the 
magnetic flux. "RDBYT" also scans the BREAK key. It returns 
a 08 or a 01 in the A register if parity error or BREAK 
respectively and with an NZ in the F register. Normal return 
has 00 in A and Z in F. 



T-3. Record Format 



As stated before, bits and bytes are never written alone, but 
always in blocks called a record. A record starts with 512 
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bits of O's followed by a single bit of "1", and a "sync 
byte". After the sync byte are the "record type" and the type 
dependent bytes. The stream of "0" bits helps the read 
routine to find the beginning of a record. Note that: 

(a) Since O's have "clocks" only, the read routine cannot 
mistake "data" as "clock" or vice versa. Thus, this makes 
it easy to achieve the so-called "bit synchronization". 

(b) Since data bytes have odd parity, there can never be more 
than 16 consecutive O's in the data stream. Thus, the 
long stream of O's is unique and un-ambiguous. 

The single bit of "1" after the long stream of O's mark the 
byte boundary and helps the read routine to achieve "byte 
synchronization". The sync byte is used to double-check the 
byte synchronization and is redundant. 

In the ESF firmware, the subroutine "WPREAM" writes the above 
stream of bits plus the record type byte (which will be 
defined in the next three sections) . The record type byte is 
passed to this subroutine in the L register, and the 
subroutine also clears the E register for checksum 
computation. 

The subroutine "RPREAM" searches for the beginning of record 
stream and reads the record type byte into D register. It 
also clears RAM location 401AH for checksum computation. 

T-4. File Mark Record 



Records on an ESF tape are divided into groups called files. A 
special record called file mark record is used to separate the 
files. A file mark record has a record-type-byte of between 
hex 80 and FF, and two arbitrary bytes following the record 
type. (The extra two bytes enable the read routine to check 
the parity of the record type byte.) 

An empty tape (with files) should have a file mark record 
with hex FF near the beginning of the tape. A tape with 1 
file should have the above file mark record FF followed by one 
or more data records (see Section T-5) or program records (see 
Section T-6), followed by another file mark record FE. In 
general, file n consists of one/more data/program records 
preceded by a file mark record with the l's complement of n as 
record type, and followed by a file mark record with the 2's 
complement of n as record type. File number n must be 
consecutive and started with 1. There cannot be more than 127 
files. 
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The subroutine "WRPRE" is used to write file mark record. The 
record type is set up by the caller and stored in the L 
register. 



T-5. Data Record 



A data record has a record-type-byte of 00. This is followed 
by a two-byte data size count, the body of data, and a 
checksum byte and two arbitrary bytes. The data size count is 
the byte count of the body of data, and is written lower-byte 
first, high order byte next. The body of data is usually a 
dump of memory block. The checksum byte is the two's 
complement of the sum of all the bytes before it in this 
record. The two arbitrary bytes following checksum enable the 
read routine to check the parity of the checksum. 

The subroutine "WRTWO" and "RDTWO" are used to write and read 
the data size count. The subroutines "WBLOCK" and "RBLOCK" 
are used to write and read the remaining part of a data 
record. 



T-6. Program Record 



A program record has a record- type-byte of 01 through 7F hex. 
This is followed by the sequence: 

(a) A two-byte program address, low order first, high order 
next. This is the beginning address of the block of 
memory being copied to tape during "SAVE". It is also 
used as the beginning address of memory for "LOAD", if 
and only if, item (b) below is not 0000. 

(b) A two-byte auto-start address, low order first, high order 
next. If this is not 0000, the ESF firmware will JUMP to 
this address after the program is loaded into the memory 
during a "LOAD". If this auto-start is 0000, special 
action is taken during "LOAD" . 

(c) A two-byte program size count, low order first, high order 
next. 

(d) The body of the program. 

(e) A checksum byte which is the two's complement of all the 
bytes in this record (including the sync byte) before 
itself. 

(f) Two arbitrary bytes. 
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( GOOD ) 


000 1 


CR 


EQU 


ODH 




(0016) 


0002 


SYNC 


EQU 


16H 




( OOFB ) 


0003 


CEI 


EQU 


OFBH 




(401A) 


0004 


BSRAM 


EQU 


401 AH 




(2B02) 


0005 


BSINT 


EQU 


2B02H 




(40A2) 


0006 


BSLIN 


EQU 


40A2H 




( OFAF ) 


0007 


BSPRN 


EQU 


OFAFH 




(40B1) 


0008 


BSMEM 


EQU 


40B1H 




(19A2) 


0009 


BSERR 


EQU 


1 9A2H 




(1D1E) 


0010 


BSCONT 


EQU 


1D1EH 




( 1E4A) 


0011 


BSFCE 


EQU 


1E4AH 




(1AF8) 


0012 


BSFIND 


EQU 


1AF8H 




( 40E6 ) 


00 1 3 


BSHL 


EQU 


40E6H 




(2B1C) 


00 1 4 


BS I EXP 


EQU 


2B1CH 




(4012) 


0015 


BSINTH 


EQU 


40 1 2H 




( 4004 ) 


0016 


BSRST2 


EQU 


4004H 




( 032A ) 


0017 


BSPRTC 


EQU 


032AH* 




(1E83) 


00 1 8 


BSCLR 


EQU 


1E83H 




(1A2B) 


00 1 9 


BSRDY 


EQU 


1A2BH 




(1D78) 


0020 


BSINO 


EQU 


1D78H 




( 1 D5B ) 


002 1 


BSEXE 


EQU 


1 D5BH 




( 40A4 ) 


0022 


BSBGNP 


EQU 


40A4H 




( 40F9 ) 


0023 


BSENDP 


EQU 


40F9H 




( 40A0 ) 


0024 


BSMAXP 


EQU 


40A0H 




(1997) 


0025 


BSSYNE 


EQU 


1 997H 




(1AE3) 


0026 


BSFIX 


EQU 


1 AE8H 




( OOAD ) 


0027 


BSCSV 


EQU 


OADH 




( 00A7 ) 


0028 


BSCLD 


EQU 


0A7H 




( OOBB ) 


0029 


BSCNW 


EQU 


OBBH 




(4016) 


0030 


BSKI 


EQU 


4016H 




( 4036 ) 


0031 


BSKS 


EQU 


4036H 




( 03FB ) 


0032 


BSKR 


EQU 


03FBH 




( 0060 ) 


0033 


BSDLY 


EQU 


0060H 




( 3880 ) 


0034 


BSSFT 


EQU 


3880H 




(3301) 


0035 


BSKEY 


EQU 


380 1H 




( 3840 ) 


0036 
0037 


BSBRK 


EQU 


3840H 






0038 


; ### ### VEC 


TORS *** **# 






0039 


3 






0000 




0040 




ORG 


3000H 


3000 


C34232 


0041 




JP 


REWIND 


3003 


C3DA32 


0042 




■JP 


READ 


3006 


C35C33 


0043 




JP 


WRITE 


3009 


C36D33 


0044 




JP 


WEOFX 


300C 


C38233 


0045 




JP 


SAVEA 


300F 


C37F34 


0046 




JP 


FBOF 


3012 


C38734 


0047 




JP 


SELECT 


3015 


2AE640 


0048 


BASIC 


LD 


HL, (BSHL) 


3018 


C31E1D 


0049 


BS1 


JP 


BSCONT 


30 IB 


C36534 


0050 




JP 


FBOFX 


30 IE 


C32A33 


0051 




JP 


WRITEX 


3021 


C36E33 


0052 




•JP 


WEOF 


3024 


C33F32 


0053 


• 


JP 


NEWA 


3027 


G36433 


0054 




•JP 


WBEOF 


302A 


C39A34 


0053 




■JP 


ERROR 


302D 


C3D230 


0056 




JP 


GETN 


3030 


03 7930 


R 0057 




•JP 


AUTO 
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3033 



00 



3034 


3C 


3035 


3C 


3036 




3037 


3C 


3033 


3C 


3039 


3C 


303A 


321A40 


303D 


218230 


3040 


220440 


3043 


2AB140 


3046 


3619 


3048 


2B 


3049 


3697 


304B 


2B 


304C 


36C3 


304E 


2B 


304F 


36F0 


3051 


2B 


3052 


22B140 


3055 


21A234 


3058 


CD7935 


305B 


113200 


305E 


CD831E 


306 1 


3A1A40 


3064 


ED44 


3066 


280E 


3068 


215C37 


306B 


221640 


306E 


C606 


3070 


4F 


3071 


FE05 


3073 


C25531 


3076 


C32B1A 


3079 


CDF81A 


307C 


2AA440 


307F 


2B 


3080 


1896 



3082 E3 

3083 7D 

3084 FE5B 
3086 2003 



0058 
0059 
0060 
006 1 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0033 
0084 
0085 
0086 
0037 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 



*♦* ♦*♦ >SYSTEM *** *** 
*? /1234N 



WHERE N=0 FOR ©LOAD 

1 FOR ©LOAD 1 

2 FOR ©LOAD 2 

3 FOR ©LOAD 3 

4 FOR ©LOAD 4 

5 FOR NO LOAD 

6 FOR KEYBOUNCE 



START 



3T1 
AUTO 



NOP 

INC 

INC 

INC 

INC 

INC 

INC 

LD 

LD 

LD 

LD 

LD 

DEC 

LD 

DEC 

LD 

DEC 

LD 

DEC 

LD 

LD 

CALL 

LD 

CALL 

LD 

NEG 

JR 

LD 

LD 

ADD 

LD 

CP 

JP 

JP 

CALL 

LD 

DEC 

JR 



A 

A 

A 

A 

A 

A 

(BSRAM),A 

HL, CHECK 

( BSRST2 ) , HL 

HL, (BSMEM) 

(HL),BSSYNE/256 

HL 

(HL),BSSYNE MOD 

HL 

( HL > , 0C3H 

HL 

< HL ) , OF OH 

HL 

( BSMEM ) , HL 

HL,HEAD 

PRTSTG 

DE,50 

BSCLR 

A, (BSRAM) 

Z,ST1 

HL.DEBNC 

(BSKI),HL 

A, 6 

CA 

5 

NZ.LOADA 

BSRDY 

BSFIND 

HL , ( BSBGNP ) 

HL 

BS1 



256 



;♦♦* MAKE BASIC LOOK FOR '&' *** 
CHECK 



EX 
LD 
CP 
•JR 



( SP ) , HL 
A,L 

BSEXE MOD 
NZ.CHt 



: :56 
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3038 


7C 


3089 


FE1D 


308B 


E3 


308C 


0278 ID 


308F 


D7 


3090 


F5 


309 1 


E6DF 


3093 


FE40 


3095 


2302 


3097 


Fl 


3098 


09 


3099 


Fl 


309A 


Fl 


309B 


D7 


309C 


2805 


309E 


FE23 


30A0 


20 1 6 


30A2 


D7 


30A3 


2863 


30A5 


0D1C2B 


30A8 


F5 


30A9 


FE08 


30AB 


302F 


30AD 


0D8734 


30B0 


C24A1E 


30B3 


Fl 


30B4 


7E 


30B5 


0A1E1D 


30B8 


111530 


30BB 


D5 


30BC 


FEAD 


30BE 


2845 


30C0 


FEA7 


30C2 


CA5231 


30C5 


FEBB 


30C7 


28 ID 


30C9 


22E640 


30CC 


2AB140 


30CF 


23 


30 DO 


'"■3 


30B1 


E9 


30D2 


D7 


30D3 


OEOO 


30D5 


2809 


30D7 


CD1C2B 


30DA 


FE64 


30DC 


D24A1E 


30DF 


4F 


30E0 


22E640 


30E3 


79 


30E4 


B7 


30E5 


09 



0115 




LD 


A,H 


0116 




OP 


BSEXE/256 


0117 C 


:.hi 


EX 


( SP ) » HL 


0118 




■JP 


NZ,BSINC 


0119 




RST 


10H 


1 20 




PUSH 


AF 


0121 




AND 


ODFH 


0122 




OP 


@'- 


0123 




JR 


Z , CHS 


1 24 




POP 


AF 


1 25 




RET 




0126 C 


::H3 


POP 


AF 


1 27 




POP 


AF 


1 28 




RST 


1 OH 


1 29 




■JR 


Z , CH4 


1 30 




OP 


•"#-■ 


0131 




JR 


NZ.CH5 


0132 




RST 


10H 


0133 f 


:h4 


•JR 


Z > SAO 


0134 




CALL 


BSIEXP 


0135 




PUSH 


AF 


0136 




OP 


8 


0137 




■JR 


NO , CH6 


1 38 




OALL 


SELECT 


1 39 




JP 


NZ.BSFCE 


1 40 




POP 


AF 


0141 




LD 


A, (HL) 


0142 




JP 


Z , BSCONT 


0143 ■: 


::H5 


LD 


DE, BASIC 


1 44 




PUSH 


DE 


0145 




OP 


BSCSV 


0146 




JR 


Z,SAVEB 


0147 




OP 


BSCLD 


0148 




JP 


Z , LOAD 


0149 




OP 


BSCNW 


0150 




JR 


Z.NEW 


0151 




LD 


( BSHL ) > HL 


1 52 




LD 


HL, (BSMEM) 


1 53 




INC 


HL 


0154 




INC 


HL 


1 55 




JP 


(HL) 


0156 i. 


5ETN 


RST 


10H 


0157 




LD 


CO 


0158 




JR 


Z,GT1 


0159 




OALL 


BSIEXP 


1 60 




OP 


1 00 


0161 CH6 


■JP 


NCBSFCE 


0162 




LD 


C,A 


0163 GT1 


LD 


( BSHL ) , HL 


0164 




LD 


A,C 


0165 




OR 


A 


0166 




RET 




0167 








0163 


#•»«•* 


ADDED BAS 


• IC COMMANDS 


0169 








1 70 


■ • ■ 


'@NEW'» ' 


SNEW1', ETC. 


1 7 1 
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30E6 


CDD230 


0172 


NEW 


CALL 


GETN 


30E9 


21C534 


0173 




LD 


HL,NEWMSG 


30EC 


CD7935 


0174 




CALL 


PRTSTG 


30EF 


61 


0175 




LD 


H.C 


30F0 


CD5F32 


0176 




CALL 


NEWA 


30F3 


F5 


0177 




PUSH 


AF 


30F4 


E6B7 


0173 




AND 


0B7H 


30F6 


2009 


0179 




JR 


NZ,NWO 


30F3 


CDAFOF 


0180 




CALL 


BSPRN 


30FB 


21CE34 


0181 




LD 


HL,BYTEMSG 


30FE 


CD7935 


0132 




CALL 


PRTSTG 


3101 


Fl 


0183 


NWO 


POP 


AF 


3102 


C3FE31 


0184 
0185 


• 
> 


JP 


LR6 






0186 


• 

J a ■ ■ 


"@SAVE1'\ 


•@SAVE2-", E" 






0187 


• 
1 






3105 


CDD230 


1 S3 


SAVED 


CALL 


GETN 


3 1 08 


281C 


0139 


SAO 


JR 


Z,SA1 


310A 


2B 


0190 




DEC 


HL 


31 OB 


D7 


0191 




RST 


10H 


3 IOC 


28 IB 


0192 




JR 


Z , SA2 


310E 


CF 


0193 




RST 


8 


310F 


2C 


0194 




DB 


, 


3110 


CD4731 


1 95 




CALL 


INTGR 


3113 


D5 


0196 




PUSH 


DE 


3114 


CF 


0197 




RST 


3 


3115 


2C 


1 98 




DB 


7 


3116 


CD4731 


0199 




CALL 


INTGR 


311? 


D5 


0200 




PUSH 


DE 


31 1A 


111530 


0201 




LD 


DE, BASIC 


31 ID 


2819 


0202 




JR 


Z , SA3 


31 IF 


CF 


0203- 




RST 


8 


3120 


2C 


0204 




DB 


, 


3121 


CD4731 


0205 




CALL 


INTGR 


3124 


2812 


0206 




JR 


Z , SA3 


3126 


C39719 


0207 


SA1 


JP 


BSSYNE 


312? 


CDFS1A 


0208 


SA2 


CALL 


BSFIND 


312C 


23 


0209 




INC 


HL 


31 2D 


ED5BA440 


0210 




LD 


DE, (BSBGNP) 


3131 


ED52 


0211 




SBC 


HL,DE 


3133 


D5 


0212 




PUSH 


DE 


3134 


E5 


0213 




PUSH 


HL 


3135 


110000 


0214 




LD 


DE,0 


3138 


21D634 


0215 


SA3 


LD 


HL,WRITMSG 


313B 


CD7935 


0216 




CALL 


PRTSTG 


313E 


79 


0217 




LD 


A,C 


313F 


CI 


0218 




POP 


BC 


3140 


El 


0219 




POP 


HL 


3141 


CD8233 


0220 




CALL 


SAVEA 


3144 


C3FB31 


0221 




JP 


LR1 


3147 


C5 


0222 


INTGR 


PUSH 


BC 


3148 


CD022B 


0223 




CALL 


BSINT 


314B 


2B 


0224 




DEC 


HL 


31 4C 


D7 


0225 




RST 


1 OH 


314D 


CI 


0226 




POP 


BC 


3 1 4E 


22E640 


0227 




LD 


( BSHL ) , HL 


3151 


C9 


0223 




RET 
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0229 ; 










0230 ; . . . 


QLOAD'', 


'fiLOADl'. ETC 






0231 5 






3152 


CDD230 


0232 LOAD 


CALL 


GETN 


3155 


21DF34 


0233 LOADA 


LD 


HL.READMSG 


3158 


CD7935 


0234 


CALL 


PRTSTG 


315B 


2AA440 


0235 


LD 


HL, (BSBGNP) 


315E 


116400 


0236 


LD 


DE, 100 


3161 


19 


0237 


ADD 


HL,DE 


3 1 62 


ED5BA040 


0238 


LD 


DE, (BSMAXP) 


3166 


ED52 


0239 


SBC 


HL , DE 


3 1 68 


E5 


0240 


PUSH 


HL 


3169 


2AA240 


0241 


LD 


HL, (BSLIN) 


31 AC 


23 


0242 


INC 


HL 


316D 


7C 


0243 


LD 


A,H 


316E 


B5 


0244 


OR 


L 


316F 


280 B 


0245 


■JR 


Z,LD1 


3171 


2AA440 


0246 


LD 


HL, (BSBGNP) 


3174 


ED5BF940 


0247 


LD 


DE, (BSENDP) 


3178 


37 


0248 


SCF 




3179 


ED52 


0249 


SBC 


HL,DE 


317B 


E3 


0250 


EX 


(SP),HL 


317C 


FDE1 


0251 LD1 


POP 


IY 


317E 


210000 


0252 


LD 


HL,0 


3181 


E5 


0253 


PUSH 


HL - 


3182 


61 


0254 


LD 


H,C 


3133 


2EFF 


0255 


LD 


L , OFFH 


3185 


79 


0256 


LD 


A,C 


3136 


B7 


0257 


OR 


A 


3137 


2001 


0258 


JR 


NZ,LD2 


3139 


6F 


0259 


LD 


L,A 


3 ISA 


CD3437 


0260 LD2 


CALL 


MTON 


31 3D 


CD4936 


0261 LD3 


CALL 


RPREAM 


3190 


2068 


0262 


•JR 


NZ, LRTN 


3192 


7A 


0263 


LD 


A,D 


3193 


B7 


0264 


OR 


A 


3194 


23F7 


0265 


•JR 


Z , LD3 


3196 


FA8D31 


0266 


UP 


M,LD3 


3 1 99 


94 


0267 


SUB 


H 


319A 


A5 


0268 


AND 


L 


319B 


20FO 


0269 


•JR 


NZ.LD3 


319D 


CD0B37 


0270 


CALL 


RDTWO 


31A0 


2058 


0271 


JR 


NZ,LRTN 


31A2 


CO 


0272 


RET 


NZ 


31 A3 


CO 


0273 


RET 


NZ 


31A4 


62 


0274 


LD 


H,D 


3 IAS 


E5 


0275 


PUSH 


HL 


31A6 


DDE1 


0276 


POP 


IX 


3 IAS 


E5 


0277 


PUSH 


HL 


31A9 


El 


0278 


POP 


HL 


31AA 


00 


0279 


NOP 




31AB 


CD0B37 


0280 


CALL 


RDTWO 


31AE 


204A 


0231 


JR 


NZ,LRTN 


31 BO 


62 


0282 


LD 


H.D 


31B1 


7A 


0233 


LD 


A,D 


31B2 


B5 


0234 


OR 


L 


31B3 


283C 


0285 


JR 


Z , LOADS 
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31B5 


E5 


0286 




PUSH 


HL 


31B6 


FDE1 


0237 


. 


POP 


IY 


31B8 


E5 


0288 




PUSH 


HL 


31B9 


El 


0289 




POP 


HL 


31BA 


CD0B37 


0290 


LD4 


CALL 


RDTWO 


31BD 


203B 


0291 




JR 


NZ.LRTN 


31BF 


5D 


0292 




LD 


E,L 


3 ICO 


El 


0293 




POP 


HL 


3 1 C 1 


19 


0294 




ADD 


HL , DE 


31C2 


3843 


0295 




JR 


C , LR5 


31C4 


D5 


0296 




PUSH 


DE 


31C5 


D5 


0297 




PUSH 


DE 


31C6 


El 


0298 




POP 


HL 


31C7 


CDA536 


0299 




CALL 


RBLOCK 


31CA 


202E 


0300 




•JR 


NZ.LRTN 


3 ICC 


Dl 


030 1 




POP 


DE 


31 CD 


FDE5 


0302 




PUSH 


IY 


31CF 


El 


0303 




POP 


HL 


31 DO 


7D 


0304 




LD 


A,L 


31 Dl 


B4 


0305 




OR 


H 


31D2 


2010 


0306 




■JR 


NZ,LD6 


31D4 


2AA240 


0307 




LD 


HL, (BSLIN) 


3 1 D7 


23 


0303 




INC 


HL 


31D3 


7C 


0309 




LD 


A,H 


31D9 


B5 


0310 




OR 


L 


3 IDA 


211132 


0311 




LD 


HL, RTNBS 


31DD 


280E 


0312 




•JR 


Z.LD7 


3 IDF 


217930 


0313 




LD 


HL,AUTO 


31E2 


1 309 


0314 




JR 


LD7 


31E4 


3A8038 


0315 


LD6 


LD 


A, (BSSFT) 


31E7 


B7 


0316 




OR 


A 


31ES 


2803 


0317 




JR 


Z , LD7 


3 1 EA 


211C32 


0313 




LD 


HL.ABT 


31 ED 


E3 


0319 


LD7 


EX 


( SP ) , HL 


31EE 


AF 


0320 




XOR 


A 


31EF 


1 30A 


0321 




JR 


LR1 


31F1 


00 


0322 


LOADB 


NOP 




31F2 


FDE3 






EX 


( SP > , I Y 


31F4 


DD2AA440 


0324 




LD 


I X , ( BSBONP ) 


31F3 


1 SCO 


0325 




JR 


LD4 


31 FA 


El 


0326 


LRTN 


POP 


HL 


31FB 


CD2537 


0327 


LR1 


CALL 


MTOFF 


31FE 


213735 


0323 


LR6 


LD 


HL , DONEMSG 


3201 


CA7935 


0329 




JP 


Z,PRTSTO 


3204 


CD3C35 


0330 




CALL 


PRTERR 


3207 


1E2A 


0331 


BFD 


LD 


E,2AH 


3209 


C3A219 


0332 




JP 


BSERR 


320C 


3E20 


0333 


LR5 


LD 


A,20H 


320E 


B7 


0334 




OR 


A 


320F 


18EA 


0335 




JR 


LR1 


3211 


DD22F940 


0336 


RTNBS 


LD 


( BSENDP ) , I X 


3215 


2AA440 


0337 




LD 


HL, (BSBONP) 


32 1 8 


E5 


0338 




PUSH 


HL 


3219 


C3E81A 


0339 




JP 


BSFIX 


32 1C 


213135 


0340 


ABT 


LD 


HL , BRKMSO 


32 IF 


CD 7935 


0341 




CALL 


PRTSTG 


■ ■"' \m, hi tl 


DDE5 


0342 




PUSH 


IX 
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3224 


El 


0343 






POP 


HL 


3225 


AF 


0344 






XOR 


A 


3226 


ED52 


0345 






SBC 


HL , DE 


3228 


D5 


0346 






PUSH 


DE 


3229 


CDAFOF 


0347 






CALL 


BSPRN 


322C 


3E2C 


0348 






LD 


A, -, ' 


322E 


CD2A03 


0349 






CALL 


BSPRTC 


3231 


El 


0350 






FOP 


HL 


3232 


CDAFOF 


0351 






CALL 


BSPRN 


3235 


3E2C 


0352 






LD 


A, -, ' 


3237 


CD2A03 


0353 






CALL 


BSPRTC 


323A 


FDE5 


0354 






PUSH 


IY 


323C 


El 


0355 






POP 


HL 


323D 


CDAFOF 


t 0356 






CALL 


BSPRN 


3240 


1 SC5 


0357 
0358 






JR 


BFD 






0359 


; ##» 


SUBROUTINES FOR ASMB CALL 






0360 


; VEi 


:tored FROM 


3000H ETC. 






0361 














0362 


; ALL RETURN WITH Z FOR CORRECT 






0363 


; NZ 


FOR ERROR 


WITH REG. A = 






0364 


; BITO 


WRITE WITHOUT DECAL 






0365 


; BIT1 


USER 


HIT BREAK 






0366 


! BIT2 


WRITE PASS EOT 






0367 


; BIT3 


READ 


PARITY ERROR- 






0368 


; BIT4 


READ 


CHECKSUM ERROR 






0369 


; BITS 


RECORD TOO LONG 






0370 


, BIT6 


VERIFY ERROR 






0371 


! BIT7 


EOF 


READ 






0372 














0373 ! 


■ a ■ 


WIND TAPE 


TO BOT ... 






0374 ■ 










3242 


C5 


0375 F 


REWIND 


PUSH 


BC 


3243 


D5 


0376 






PUSH 


DE 


3244 


CD3437 


0377 






CALL 


MTON 


3247 


CD4B37 


0378 






CALL 


DELAY 


324A 


3 A 4 03 8 


0379 F 


?WDL 




LD 


A, (BSBRK) 


324D 


E604 


0380 






AND 


4 


324F 


OF 


0381 






RRCA 




3250 


2007 


0382 






JR 


NZ,RWDF 


3252 


ED78 


0383 






IN 


A, (C) 


3254 


E604 


0334 






AND 


4 


3256 


28F2 


0385 






JR 


Z , RWDL 


3258 


AF 


0336 






XOR 


A 


3259 


CD2537 


0387 F 


?WDF 




CALL 


MTOFF 


325C 


Dl 


0338 






POP 


DE 


325D 


CI 


0389 






POP 


BC 


325E 


C9 


0390 
0391 ; 






RET 








0392 ; 


« • ■ 


ERASE TAPE 


• • • 






0393 ; 


H = 


5 S 


TARTING FILE NUMBER 






0394 ; 


HL 


RETURNS NUMBER OF BYTES 






0395 ; 










325F 


C5 


0396 |v 


JEWA 




PUSH 


BC 


3260 


D5 


0397 






PUSH 


DE 


326 1 


CD3337 


0393 






CALL 


MTONW 


3264 


E601 


0399 






AND 


1 



•*## 
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3266 


206C 




0400 




JR 


NZ, NW11 


3268 


7C 




0401 




LD 


A,H 


3269 


FE02 




0402 




CP 


•-} 


326 B 


3013 




0403 




JR 


NCNW2 


326 D 


CD425 


''~? 


0404 




CALL 


REWIND 


3270 


2062 




0405 




•JR 


NZ.NW11 


3272 


3E35 




0406 




LD 


A , S5H 


3274 


321A40 


0407 




LD 


( BSRAM ) 


3277 


ED79 




040S 




OUT 


(C),A 


3279 


CD4B:: 


:7 


0409 




CALL 


DELAY 


327C 


2EFF 




0410 




LD 


L , OFFH 


327E 


CBS63 


:5 


04 1 1 




CALL 


WRPRE 


323 1 


2051 




0412 




■JR 


NZ.NW11 


323';' 


1309 




0413 




•JR 


NW3 


3235 


CD49:: 


:6 


0414 


NW2 


CALL 


RPREAM 


•3!c'yy 


204A 




04 1 5 




JR 


NZ.NW11 


323A 


7A 




0416 




LD 


A,D 


323B 


34 




04 1 7 




ADD 


H 


32SC 


20F7 




0418 




•JR 


NZ,NW2 


328E 


06 1 




0419 


NW3 


LD 


B, 10H 


3290 


10FE 




0420 


NW4 


DJNZ 


NW4 


3292 


2ES0 




0421 




LD 


L , 080H 


3294 


CD92-Z 


*5 


0422 




CALL 


WPREAM 


3297 


C204:2 


'"T* 


R 0423 




JP 


NZ,NWU 


329A 


1E5A 




0424 




LD 


E,90 


329C 


26FF 




0425 


NW6 


LD 


H.OFFH 


329E 


54 




0426 




LD 


D,H 


329F 


CD 19:1 


)6 


0427 




CALL 


WRBIT 


32A2 


CA9CG 


■2 


R 0428 




JP 


Z , NW6 


32A5 


060 1 




0429 


NW7 


LD 


B, 1 


32A7 


CD 19:: 


:6 


0430 




CALL 


WRBIT 


32AA 


ID 




0431 




DEC 


E 


32AB 


C2A5:] 


<2 


R 0432 




•JP 


NZ.NW7 


32AE 


0601 




0433 




LD 


B, 1 


32B0 


ED41 




0434 




OUT 


(C),B 


32B2 


CD49:: 


•6 


0435 


NW8 


CALL 


RPREAM 


32B5 


20 1 D 




0436 




JR 


NZ.NW11 


32B7 


7A 




0437 




LD 


A,D 


32B8 


BD 




0438 




CP 


L 


32B9 


20F7 




0439 




JR 


NZ,NW8 


32BB 


21FFFF 


0440 




LD 


HL,-1 


32BE 


23 




0441 


NW9 


INC 


HL 


32BF 


ED73 




0442 




IN 


A, (C) 


32C1 


E604 




0443 




AND 


4 


3203 


200 D 




0444 




JR 


NZ.MW10 


32C5 


CDCDS 


'6 


0445 




CALL 


RDBYTE 


32C8 


C2D2:: 


12 


R 0446 




JP 


NZ.NW10 


32CB 


F5 




0447 




PUSH 


AF 


32CC 


Fl 




0448 




POP 


AF 


32CD 


14 




0449 




I NO- 


D 


32CE 


3E08 




0450 




LO 


A. 8 


32D0 


2SEC 




0451 




JR 


Z , NW9 


32D2 


E6FB 




0452 


NW10 


AND 


OFBH 


32D4 


CD252 


\1 


0453 


NW11 


CALL 


MTOFF 


32D7 


Dl 




0454 




POP 


DE 


32DS 


CI 




0455 




POP 


BC 


32D9 


C9 




0456 




RET 





A 
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0457 












0458 


1 m m • 


READ DATA 








0459 


; hl 


— > BUFFER 








0460 


; bo 


= BUFFER LENGTH AT 






0461 


; REC 


;ORD LENGTH 


AT RETL 






0462 








32DA 


DDES 


0463 


READ 


PUSH 


IX 


32DC 


D5 


0464 




PUSH 


DE 


32DD 


E5 


0465 




PUSH 


HL 


32DE 


DDE1 


0466 




POP 


IX 


32 EO 


E5 


0467 




PUSH 


HL 


32E1 


FDE5 


0468 




PUSH 


IY 


32E3 


05 


0469 




PUSH 


BO 


32E4 


79 


0470 




LD 


A,C 


32E5 


2F 


0471 




CPL 




32E6 


4F 


0472 




LD 


0,A 


32E7 


73 


0473 




LD 


A,B 


32E8 


2F 


0474 




CPL 




32E9 


47 


0475 




LD 


B,A 


32EA 


05 


0476 




PUSH 


BC 


32EB 


FDE1 


0477 




POP 


IY 


32ED 


CD3437 


0478 




CALL 


MTON 


32F0 


CD4936 


0479 


RLP 


CALL 


RPREAM 


32F3 


2025 


0480 




•JR 


NZ,RRTN 


32F5 


7A 


0481 




LD 


A>D 


32F6 


B7 


0482 




OR 


A 


32F7 


3E04 


0483 




LD 


A,04H 


32F9 


20 1 F 


0484 




•JR 


NZ,RRTN 


32FB 


DD7E00 


0435 




LD 


A, (IX) 


32FE 


0D0B37 


0486 




CALL 


RDTWO 


3301 


20 1 7 


0487 




•JR 


NZ.RRTN 


3303 


62 


0438 




LD 


H,D 


3304 


EB 


0439 




EX 


DE,HL 


3305 


FD19 


0490 




ADD 


IY,DE 


3307 


EB 


0491 




EX 


DE.HL 


3308 


38 IB 


0492 




•JR 


CBUFE 


330A 


D8 


0493 




RET 


c 


330B 


00 


0494 




NOP 




3 3 00 


E5 


0495 




PUSH 


HL 


330D 


El 


0496 




POP 


HL 


330E 


CDA536 


0497 




CALL 


RBLOOK 


3311 


2007 


0498 




JR 


NZ,RRTN 


3313 


Dl 


0499 




POP 


DE 


3314 


FD19 


0500 




ADD 


IY,DE 


3316 


FD23 


0501 




INC 


IY 


3313 


FDE5 


0502 




PUSH 


IY 


331 A 


0D2537 


0503 


RRTN 


CALL 


MTOFF 


33 ID 


01 


0504 




POP 


BC 


33 IE 


FDE1 


0505 




POP 


IY 


3320 


El 


0506 




POP 


HL 


3321 


Dl 


0507 




POP 


DE 


T'O'T'O 


DDE1 


0508 




POP 


IX 


3324 


09 


0509 




RET 




3'-!'^' <= i 


3E20 


05 1 


BUFE 


LD 


A , 20H 


3327 


B7 


05 1 1 




OR 


A 


1yZyZ'<Z* 


1 3F0 


0512 
0513 


> 


JR 


RRTN 
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0514 


• 

1 ■ ■ • 


WRITE DATA 


RECORD . 








0515 


; HL 


— > BUFFER 










0516 


; BC 


= BUFFER LENGTH 








0517 


; D = 


DELAY TIME 








" 0518 


t 






332A 


DDES 




05 1 9 


WRITEX PUSH 


IX 


332C 


E5 




0520 




.PUSH 


HL 


332D 


DDE1 




052 1 




POP 


IX 


332F 


E5 




0522 




PUSH 


HL 


3330 


D5 




0523 




PUSH 


DE 


333 1 


C5 




0524 




PUSH 


BC 


-'--'w'k! 


CD33:. 


37 


0525 




CALL 


MTONW 


3335 


2017 




0526 




JR 


NZ, WRTN 


3337 


2E0O 




0527 




LD 


L , 


333'? 


CD92:! 


35 


0528 




CALL 


WPREAM 


333 C 


2010 




0529 




■JR 


NZ , WRTN 


333E 


El 




0530 




POP 


HL 


333F 


E5 




053 1 




PUSH 


HL 


3340 


DD7E00 


0532 




LD 


A, (IX) 


3343 


CD3B; 


36 


0533 




CALL 


WRTWO 


3346 


2006 




0534 




JR 


NZ , WRTN 


3343 


00 




0535 




NOP 




3349 


El 




0536 




POP 


HL 


334A 


E5 




0537 




PUSH 


HL 


33 4 B 


CDC7:: 


55 


0538 




CALL 


WBLOCK 


334E 


CD25C 


37 


0539 


WRTN 


CALL 


MTOFF 


3351 


El 




0540 




POP 


HL 


3352 


01 




054 1 




POP 


DE 


3353 


E5 




0542 




PUSH 


HL 


3354 


CC4DC 


37 


0543 




CALL 


Z,ONDLY 


3357 


CI 




0544 




POP 


BC 


3353 


El 




0545 




POP 


HL 


3359 


DDE 1 




0546 




POP 


IX 


335B 


C9 




0547 




RET 




335C 


D5 




0543 


WRITE 


PUSH 


DE 


3350 


1630 




0549 




LD 


D,61 


335F 


CD2A:: 




0550 




CALL 


WRITEX 


3362 


Dl 




0551 




POP 


DE 


3363 


C9 




0552 
0553 




RET 










0554 


? • > • 


WRITE BUFFER Z< EOF 








0555 


; HL 


— > BUFFER 










0556 


; BC 


= BUFFER LENGTH 








0557 


; A = 


FILL NUMBER 








0558 








3364 


F5 




0559 


WBEOF 


PUSH 


AF 


3365 


78 




0560 




LD 


A,B 


3366 


Bl 




056 1 


• 


OR 


c 


3367 


C45C:: 


33 


0562 




CALL 


NZ, WRITE 


336A 


Fl 




0563 




POP 


AF 


336B 


1301 




0564 
0565 


7 


JR 


WEOF 








0566 


• 

1 • • • 


WRITE EOF MARK . . . 








0567 


5 A = 


FILE NUMBER 








0568 


1 






33 6 D 


3D 




0569 


WEOFX 


DEC 


A 


336E 


C5 




0570 


WEOF 


PUSH 


BC 
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336F 


D5 


3370 


E5 


3371 


2F 


3372 


F680 


3374 


6F 


3375 


CD3337 


3373 


CC3635 


33 7 B 


CD2537 


337E 


El 


337F 


Dl 


3330 


CI 


3331 


C9 



3334 
3336 
3387 
3388 
3339 
338A 

338D 
33SE 
33SF 
3390 
8392 
3393 
3396 
3398 
339B 
339D 
339E 
339F 
33A1 
3 3 A3 
33A5 
33A8 
33AA 
33AC 
33AE 
33AF 
33B2 
33B4 
33B6 
33B8 
33B9 
33 BC 
33BE 
33C0 
33C2 
33C3 



DDE5 

FDE5 

E5 

D5 

C5 

E5 

DDE1 

E5 

6F 

E5 

D5 

FDE1 

C5 

CD3337 

2024 

CD 4936 

20 IF 

7A 

85 

20F7 

06 1 

10FE 

CD9235 

2012 

ED5A 

DDE5 

El 

CD3B36 

2008 

ED5A 

FDE5 

El 

CD3B36 

206F 

ED5A 

ED5A 

El 

CD3B36 



0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

058 1 

0532 

0533 

0584 

0585 

0586 

0587 

0583 

0589 

0590 

059 1 

0592 

0593 

0594 

0595 

0596 

0597 

0598 

0599 

0600 

0601 

0602 

0603 

0604 

0605 

0606 

0607 

0608 

0609 

0610 

06 1 1 

0612 

0613 

0614 

0615 

0616 

0617 

0618 

06 1 9 

0620 

0621 

0622 

0623 

0624 

0625 

0626 

0627 



PUSH 


DE 


PUSH 


HL 


CPL 




OR 


SOH 


LD 


L,A 


CALL 


MTONW 


CALL 


Z , WRPRE 


CALL 


MTOFF 


POP 


HL 


POP 


DE 


POP 


BC 


RET 





. . WRITE PROGRAM FILE 
HL = LOAD ADDRESS 
DE = START ADDRESS 
BC = LENGTH 
A = FILE # (1 THRU 9) 



SAVEA 



SV1 



>V2 



SVEJ 



PUSH 


IX 


PUSH 


IY 


PUSH 


HL 


PUSH 


DE 


PUSH 


BC 


PUSH 


HL 


POP 


IX 


PUSH 


HL 


LD 


L,A 


PUSH 


HL 


PUSH 


DE 


POP 


IY 


PUSH 


BC 


CALL 


MTONW 


JR 


NZ,SVEJ 


CALL 


RPREAM 


•JR 


NZ,SVEJ 


LD 


A,D 


ADD 


L 


JR 


NZ.SV1 


LD 


B, 10H 


DJNZ 


SV2 


CALL 


WPREAM 


•JR 


NZ , SVE J 


ADC 


HL,DE 


PUSH 


IX 


POP 


HL 


CALL 


WRTWO 


JR 


N2 , SVE J 


ADC 


HL , DE 


PUSH 


IY 


POP 


HL 


CALL 


WRTWO 


•JR 


NZ,SVE 


ADC 


HL,DE 


ADC 


HL.DE 


POP 


HL 


CALL 


WRTWO 
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33C6 

--.3C8 

3C9 

3CA 

3CB 

3CE 

3D0 

Dl 

D3 

D4 

D5 

D6 

D9 

DB 

DC 

DD 

DE 

EO 

E2 

E5 

E7 

ES 

E9 

EB 

EC 

ED 

EE 

Fl 

F3 

F4 

F5 

F6 

F3 

F9 

FA 

FC 

FD 

FE 

400 

403 

405 

406 

3407 

3408 

3 40 A 

340B 

340C 

340E 

340F 

3410 

3412 

3415 

417 

3418 

3419 

341 A 

34 IB 



2066 

E5 

El 

00 

CDC735 

205E 

El 

DDE1 

7D 

2F 

6F 

CD8635 

2055 

7D 

2F 

6F 

3E01 

ED 79 

CD4936 

2049 

7A 

BD 

20F7 

CO 

E5 

El 

CD0B37 

203D 

CO 

00 

7D 

DDE5 

El 

BD 

2065 

7A 

BC 

2061 

CD0B37 

202B 

CO 

00 

7D 

FDE5 

El 

BD 

2053 

7A 

BC 

204F 

CD0B37 

2019 

CO 

CO 

E5 

El 

7D 



0628 

0629 

0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0633 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0653 

0659 

0660 

066 1 

0662 

0663 

0664 

0665 

0666 

0667 

0663 

0669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 

0677 

0678 

0679 

0630 

0681 

0632 

0683 

0684 



3V3 



JR 


NZ,SVE1 


PUSH 


HL 


POP 


HL 


NOP 




CALL 


WBLOCK 


•JR' 


NZ.SVE1 


POP 


HL 


POP 


IX 


LD 


A,L 


CPL 




LD 


• L,A 


CALL 


WRPRE 


JR 


NZ.SVR 


LD 


A,L 


CPL 




LD 


L, A 


LD 


A, 1 


OUT 


( O.A 


CALL 


RPREAM 


JR 


NZ , SVR 


LD 


A,D 


CP 


L 


JR 


NZ.SV3 


RET 


NZ 


PUSH 


HL 


POP 


HL 


CALL 


RDTWO 


JR 


NZ,SVR 


RET 


NZ 


NOP 




LD 


A,L 


PUSH 


IX 


POP 


HL 


CP 


L 


JR 


NZ.ERR 


LD 


A,D 


CP 


H 


JR 


NZ.ERR 


CALL 


RDTWO 


JR 


NZ,SVR 


RET 


NZ 


NOP 




LD 


A,L 


PUSH . 


IY 


POP 


HL 


CP 


L 


JR 


NZ.ERR 


LD 


A.D 


CP 


H 


•JR 


NZ , ERR 


CALL 


RDTWO 


JR 


NZ.SVR 


RET 


NZ 


RET 


NZ 


PUSH 


HL 


POP 


HL 


LD 


A.L 
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341C 


El 


34 ID 


E5 


34 IE 


BD 


34 IF 


2040 


3421 


7A 


3422 


BC 


3423 


203C 


3425 


CDCD36 


3423 


2006 


34 2 A 


CO 


342B 


130E 


342D 


El 


34 2E 


El 


342F 


El 


3430 


CD2537 


3433 


CI 


3434 


Dl 


3435 


El 


3436 


FDE1 


3438 


DDE1 


343A 


C9 


343B 


DD7E00 


343E 


BA 


343F 


2020 


3441 


DD23 


3443 


2B 


3444 


7C 


3445 


B5 


3446 


C22534 


3449 


CDCD36 


344C 


20E2 


344E 


0606 


3450 


10FE 


3452 


CDCD36 


3455 


20D9 


3457 


3A1A40 


345A 


B7 


34 5B 


2 802 


345D 


3E0A 


345F 


18CF 


3461 


3E40 


3463 


18CB 



3465 


C5 


3466 


D5 


3467 


F5 


3468 


CD3437 


346B 


CD4936 


346E 


2005 


3470 


Fl 


3471 


F5 


3472 


32 


3473 


20F6 


3475 


CD2537 



R 



0685 




POP 


HL 


0686 




PUSH 


HL 


0687 




CP 


L 


0688 




■JR 


NZ , ERR 


0689 




LD 


A,D 


0690 




CP 


H 


0691 




JR 


MZ , ERR 


0692 


SV4 


CALL 


RDBYTE 


0693 




■JR 


NZ , SVR 


0694 




RET 


NZ 


0695 




JR 


SV5 


0696 


SVE 


POP 


HL 


0697 


SVE1 


POP 


HL 


0698 




POP 


HL 


0699 


SVR 


CALL 


MTOFF 


0700 




POP 


BC 


0701 




POP 


DE 


0702 




POP 


HL 


0703 




POP 


IY 


0704 




POP 


IX 


0705 




RET 




0706 


SV5 


LD 


A, (IX) 


0707 




CP 


D 


0708 




JR 


NZ.ERR 


0709 




INC 


IX 


0710 




DEC 


HL 


0711 




LD 


A,H 


0712 




OR 


L 


0713 




JP 


NZ.SV4 


0714 




CALL 


RDBYTE 


0715 




JR 


NZ , SVR 


0716 




LD 


B,6 


0717 


3V7 


DJNZ 


SV7 


0718 




CALL 


RDBYTE 


0719 




JR 


NZ , SVR 


0720 




LD 


A, (BSRAM) 


0721 




OR 


A 


0722 




JR 


Z , SV6 


0723 




LD 


A , 1 


0724 


SV6 


JR 


SVR 


0725 


ERR 


LD 


A , 40H 


0726 




JR 


SVR 


0727 


• 
7 






0728 


m 

t m - • 


FIND BEG 


INNING OF DA 


0729 


; A = 


FILE NUMBER 


0730 


a 
> 






0731 


FBOFX 


PUSH 


BC 


0732 




PUSH 


DE 


0733 




PUSH 


AF 


0734 




CALL 


MTON 


0735 


0P1 


CALL 


RPREAM 


0736 




JR 


NZ,0P2 


0737 




POP 


AF 


0738 




PUSH 


AF 


0739 




ADD 


D 


0740 




■JR 


NZ, OP 1 


0741 


0P2 


CALL 


MTOFF 



FILE 
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3479 


Dl 




0742 




POP 


DE 




3479 


Dl 




0743 




POP 


DE 




347A 


CC4D37 




0744 




CALL 


Z , ONDLY 




34 7D 


CI 




0745 




POP 


BC 




347E 


C9 




0746 




RET 






347F 


D5 




0747 


FBOF 


PUSH 


DE 




3480 


163D 




0748 




LD 


D.61 




":4ft-'? 


CD6534 




• 0749 




CALL 


FBOFX 




34S5 


Dl 




0750 




POP 


DE 




3486 


09 




0751 
0752 




RET 












0753 


i ... SELECT DRIVE . . . 










0754 


; AF = 


DRIVE 


NUMBER 










0755 


• 








3487 


C5 




0756 


SELECT 


PUSH 


BC 




3488 


F6F0 




0757 




OR 


OFOH 




348A 


4F 




0758 




LD 


C,A 




348B 


ED 78 




0759 




IN 


A, CO 




348D 


E608 




0760 




AND 


8 




348F 


79 




0761 




LD 


A,C 




3490 


CI 




0762 




POP 


BC 




3491 


CO 




0763 




RET 


Nl 




3492 


E5 




0764 




PUSH 


HL 




3493 


2AB140 




0765 




LD 


HL, CBSMEM) 




3496 


23 




0766 




INC 


HL 




3497 


77 




0767 




LD 


(HL),A 




3493 


El 




0763 




POP 


HL 




3499 


09 




0769 
0770 


• 


RET 












0771 


?. ..PRINT ERF 


OR MESSAGE . . . 










0772 


5 A = ERROR C 


ODE 










0773 


■ 








349A 


E5 




0774 


ERROR 


PUSH 


HL 




349B 


F5 




0775 




PUSH 


AF 




349C 


CD3C35 




0776 




CALL 


PRTERR 




349F 


Fl 




0777 




POP 


AF 




34A0 


El 




077S 




POP 


HL 




34 A 1 


C9 




0779 
0780 


7 


RET 












0781 


; ### *#* STRINGS ##-* #■#* 










0732 










34A2 


45584154 


0783 


HEAD 


DB 


-•EXAT' 




34 A 6 


524F4E20 


0734 




DB 


'RON ' 




34AA 


53545249 


0785 




DB 


■-STRI- 




34AE 


4E4759': 


20 


0736 




DB 


•NGY ' 




34B2 


464C4F!i 


50 


0787. 




DB 


"FLOP'' 




34B6 


50592056 


0738 




DB 


''FY V' 




34BA 


45525349 


0789 




DB 


■-ERSI-- 




34BE 


4F4E20:! 


34 


0790 




DB 


'ON 4 y 




34C2 


2E318D 




0791 




DB 


■" . 1 - , CR+80H 




34C5 


45524153 


0792 


NEWMSG 


DB 


ERAS-' 




34C9 


494E47: 


1'E 


0793 




DB 


- ING. '' 




34CD 


AE 




0794 




DB 


' . ' +80H 




34CE 


20425954 


0795 


BYTEMSi 


:< DB 


- BYT- 




3 402 


45532EAE 


0/96 




DB 


-ES. "' , •" . •+3( 


DH 


34D6 


57524954 


0797 


WRITMSi 


3 DB 


■ WRIT- 




34DA 


494E472E 


0793 




DB 


ING. - 





EXATRON STRINGY 
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FOR 


TRS-80 PAGE 0015 


34DE 


AE 


0799 




DB 


'. '+30H 




34DF 


52454144 


0800 


READMSG 


DB 


-READ'' 




34E3 


494E472E 


080 1 




DB 


•'ING. - 




34E7 


AE 


0802 




DB 


- . ' +80H 




34E3 


56455249 


0803 


VRFMSG 


DB 


■VERI' 




34EC 


46D9 


0804 




DB 


"'F'-, "Y-'+SOH 




34EE 


50415249 


0805 


PERRMSG 


DB 


'PARI" 




34 F2 


54D9 


0806 




DB 


-T'', •Y-+30H 




34F4 


43434543 


0807 


CERRMSG 


DB 


•-CHEC-' 




34F8 


4B5355CD 


0808 




DB 


"KSIK, 'M'+80H 




34FC 


4F555420 


0809 


OMMSG 


DB 


- OUT - 




3500 


4F46204D 


0810 




DB 


'OF M-' 




3504 


454D4F52 


0811 




DB 


"EMOR'' 




3508 


D9 


0812 




DB 


•"Y-"+80H 




3509 


54415045 


0813 


TTSMSG 


DB 


"TAPE" 




350 D 


20544F4F 


0814 




DB 


-' TOO '' 




3511 


2053 48 4F 


0315 




DB 


- SHO- 




3515 


52D4 


0816 




DB 


R'', -T-+80H 




35 1 7 


57524954 


0817 


WPMSG 


DB 


-WRIT' 




35 IB 


452D5052 


0818 




DB 


-E-PR-' 




35 IF 


4F544543 


0319 




DB 


"OTEC 




3523 


54454480 


0820 




DB 


-TES -D- , +80H 




3527 


454FC6 


0821 


EGFMSG 


DB 


•EO", -F'+80H 




352 A 


20455252 


0822 


ERRMSG 


DB 


" ERR" 




352E 


4F523D 


0323 




DB 


-' OR -' , CR+80H 




3531 


42524541 


0824 


BRKMSG 


DB 


•BREA-' 




3535 


4B8D 


0825 




DB 


-K',CR+SOH 




3537 


444F4E45 


0826 


DONEMSG 


DB 


-DONE'' 




353B 


3D 


0827 
0823 




DB 


CR+80H 








0829 


; ♦** #♦♦ SUB- 


-SUBROUTINES *** *** 








0830 














0831 


; PRINT ERROR 


MESSAGE 








0832 










353C 


CB47 


0833 


PRTERR 


BIT 


0, A 




353E 


211735 


0834 




LD 


HL , WPMSG 




3541 


2030 


0835 




JR 


NZ,PE1 




3543 


CB4F 


0836 




.BIT 


1,A 




3545 


213135 


0837 




LD 


HL, BRKMSG 




3543 


202F 


0833 




■JR 


NZ.PRTSTG 




354A 


CBS 7 


0839 




BIT 


2, A 




354C 


2 1 0935 


0S40 




LD 


HL , TTSMSG 




354F 


2022 


0841 




•JR 


NZ.PE1 




3551 


CB5F 


0342 




BIT 


3, A 




3553 


21EE34 


0843 




LD 


HL, PERRMSG 




3556 


20 IB 


0844 




JR 


NZ.PE1 




3553 


CB67 


0845 




BIT 


4, A 




355A 


21F434 


0846 




LD 


HL , CERRMSG 




355D 


2014 


0347 




JR 


NZ,PE1 




355F 


CB6F 


0843 




BIT 


5, A 




3561 


21FC34 


0849 




LD 


HL , OMMSG 




3564 


200D 


0850 




JR 


NZ.PE1 




3566 


CB77 


0851 




BIT 


6, A 




3563 


21E834 


0852 




LD 


HL , VRFMSG 




356B 


2006 


0853 




JR 


NZ.PE1 




356D 


212735 • 


0854 




LD 


HL , EOFMSG 




3570 


CB7F 


0855 




BIT 


7, A 
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3572 
3573 
3576 



CS 

CD7935 

212A35 



3579 


7E 


357A 


23 


35 7B 


F5 


357C 


E67F 


357E 


CD2A03 


3581 


Fl 


3582 


17 


3533 


30F4 


3585 


C9 



536 


CD9235 


589 


CO 


53A 


CO 


53B 


0604 


58D 


10FE 


58F 


C33B36 



592 
594 
597 
599 
5*C 
59D 
5A0 
5A1 
5A2 
5A4 
5A7 

35A8 
5A9 
5AB 
5AD 

35B0 
5B2 
5B4 
5B5 
5B6 
5B3 
5BA 
5BD 
5BE 
5BF 
~ ~ 



3E35 

321A40 

ED79 

CD4B37 

CO 

CD 1436 

CO 

00 

1 800 

CD 1 936 

CO 

CO 

0604 

10FE 

3A1A40 

E67F 

ED79 

00 

00 

0605 

1616 

CDEC35 

CO 

55 

58 

0604 

C3EA35 

00 

00 



0856 

0857 

0858 

0859 

0860 

0861 

0862 

0863 

0864 

0865 

0866 

0867 

0868 

0869 

0870 

0371 

0872 

0873 

0874 

0875 

0876 

0877 

0873 

0879 

0880 

088 1 

0882 

0883 

0834 

0885 

0886 

0387 

0888 

0889 

0890 

089 1 

0892 

0893 

0894 

0895 

0896 

0897 

0398 

0899 

0900 

0901 

0902 

0903 

0904 

0905 

0906 

0907 

0903 

0909 

0910 

0911 

09 1 2 



RET 


Z 


CALL 


PRTSTG 


LD 


HL , ERRMSG 



PE1 



; PRINT STRING POINTED BY HL 



PRTSTG 



LD 

INC 

PUSH 

AND 

CALL 

POP 

RLA 

JR 

RET 



A , ( HL ) 

HL 

AF 

7FH 

BSPRTC 

AF 

NC, PRTSTG 



5 WRITE PREAMBLE, SYNC, 
5 BYTE IN L AND TWO MORE 
WRPRE CALL WPREAM 



WEWE 



; WRITE PREAMBLE, 
; AND BYTE IN L 



RET 


MZ 


RET 


NZ 


LD 


B,4 


D.JNZ 


WEWE 


JP 


WRTWO 



WPREAM 



WRBLK 



WRKWT2 



WRLOP 



14 

LD 

LD 

OUT 

CALL 

RET 

CALL 

RET 

NOP 

•JR 

CALL 

RET 

RET 

LD 

DJNZ 

LD 

AND 

OUT 

NOP 

NOP 

LD 

LD 

CALL 

RET 

LD 

LD 

LD 

JP 

NOP 

NOP 



SYNC, 

*** 

A,35H 

(BSRAM),A 

( C ) , A 

DELAY 

NZ 

WRBITS 

NZ 

WRBLK 

WRBIT 

NZ 

NZ 

B,4 

WRKWT2 

A, (BSRAM) 

7FH 

( C ) , A 



B,5 

D.SYIMC 

WRBYTE 

NZ 

D,L 

E,B 

B,4 

WRBY 
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0913 


• 










0914 


! WRITE 


BLOCK OF HL 






0915 


; POINTED BY IX 








0916 


; ##* 


7S/14 


*#•* 


35C7 


DD5600 


0917 


WBLOCK 


LD 


D, ( IX) 


35CA 


CDEE35 


09 1 8 




CALL 


WRBYT 


35CD 


CO 


0919 




RET 


HI 


35CE 


DD23 


0920 




INC 


IX 


35D0 


2B 


092 1 




DEC 


HL 


35D1 


7C 


0922 




LD 


A,H 


35D2 


B5 


0923 




OR 


L 


35D3 


20F0 


0924 




•JR 


NZ , WRLOP 


35D5 


CO 


0925 




RET 


NZ 


35D6 


0601 


0926 




LD 


B, 1 


35D8 


97 


0927 




SUB 


A 


35D9 


93 


0928 




SUB 


E 


35DA 


57 


0929 




LD 


D.A 


35DB 


CDEC35 


0930 




CALL 


WRBYTE 


35DE 


CO 


0931 




RET 


HZ 


35DF 


CO 


0932 




RET 


HI 


35E0 


00 


0933 




NOP 




35E1 


0604 


0934 




LD 


B,4 


35E3 


CDEC35 


0935 




CALL 


WRBYTE 


35E6 


CO 


0936 




RET 


HI 


35E7 


CO 


0937 




RET 


HI 


35E8 


0605 


0938 




LD 


B,5 


35EA 


00 


0939 


WRBY 


NOP 




35EB 


00 


0940 
0941 


a 
> 


NOP 








0942 


; WRITE 


BYTE IN 


D 






0943 


;*»* 13B+37/14 


#** 






0944 


; #♦# 42/14 *** 




35EC 


1 OFE 


0945 


WRBYTE 


DJNZ 


WRBYTE 


35EE 


3A1A40 


0946 


WRBYT 


LD 


A, (BSRAM) 


35F1 


ED7? 


0947 




OUT 


( C ) , A 


35F3 


7A 


0948 




LD 


A,D 


35F4 


83 


0949 




ADD 


A,E 


35F5 


5F 


0950 




LD 


E,A 


35F6 


0603 


0951 




LD 


a i y 


35FS 


ji!o' 


0952 




INC 


HL 


35F9 


CD 1436 


0953 




CALL 


WRBITS 


35FC 


2B 


0954 




DEC 


HL 


35FB 


CO 


0955 




RET 


NZ 


35FE 


CO 


0956 




RET 


NZ 


35FF 


0602 


0957 




LD 


B,2 


3601 


10FE 


0958 


WRTWT 


DJNZ 


WRTWT 


3603 


3A1A40 


0959 




LD 


A , ( BSRAM ) 


3606 


F680 


0960 




OR 


30H 


3608 


321 A 40 


0961 




LD 


( BSRAM ) , A 


360 B 


E67F 


0962 




AND 


7FH 


360D 


ED79 


0963 




OUT 


( C ) , A 


360F 


AF 


0964 




XOR 


A 


3610 


C9 


0965 
0966 


• 
1 


RET 








0967 


; WRITE 


B BITS IN D 






0968 


; #*♦ 116.99,75/ 


28 ■*** 


3611 


DD7E00 


0969 


WRBITL 


LD 


A, I IX) 
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3614 


ED78 




0970 WRBITS 


IN 


A, (C) 


3616 


E605 




0971 




AND 


5 


3618 


CO 




0972 




RET 


NZ 


3619 


C5 




0973 WRBIT 


PUSH 


BC 


36 1 A 


3A1A40 


0974 




LD 


A, (BSRAM) 


36 1 D 


CBOA 




0975 




RRC 


D 


36 IF 


30 1 6 




0976 




JR 


NC, WRZRO 


3621 


EE30 




0977 




XOR 


SOH 


3623 


ED79 




0978 




OUT 


( C ) , A 


3625 


EE30 




0979 WRCLK 


XOR 


80H 


3627 


00 




0980 




NOP 




-;A ~'P, 


00 




0931 




NOP 




3629 


BF 




0982 




CP 


A 


362 A 


0606 




0983 




LD 


B,6 


362C 


1 OFE 




0984 WRBWT 


DJNZ 


WRBWT 


362E 


321 A 40 


0985 




LD 


( BSRAM ) , A 


3631 


ED79 




0986 




OUT 


( C ) , A 


3633 


CI 




0987 




POP 


BC 


3634 


10DB 




0988 




DJNZ 


WRBITL 


3636 


09 




0989 




RET 




3637 


00 




0990 WRZRO 


NOP 




3633 


C32536 


R 0991 




•JP 


WRCLK 








0992 


i 












0993 i 


WRITE 


TWO BYTES IN HL 








0994 ' 


*■** 63 


/14 *#* 


363B 


55 




0995 WRTWO 


LD 


D,L 


363C 


cdee: 


<5 


0996 




CALL 


WRBYT 


363F 


CO 




0997 




RET 


NZ 


3640 


00 




0998 




NOP 




3641 


00 




0999 




NOP 




3642 


00 




1 000 




NOP 




3643 


54 




1001 




LD 


0,H 


3644 


0604 




1002 




LD 


B,4 


3646 


C3ECI 


:5 


R 1003 
1004 




UP 


WRBYTE • 








1 005 , 


SEARCH 


PREAMBLE AND 








1 (I>06 


SYNC > 


READ 


BYTE IN D 








1007 , 


#*# 81 


##♦ 




3649 


cd5e: 


■ 6 


1008 F 


RPREAM 


CALL 


PR1 


36 4 C 


CO 




1 009 




RET 


NZ 


364D 


7A 




1010 




LD 


A.D 


364E 


D6 1 6 




1011 




SUB 


SYNC 


3650 


C2492 


<6 


R 1012 




JP 


NZ.RPREAM 


3653 


3C 




1013 




INC 


A 


3654 


CD 1937 


1014 




CALL 


WAIT 


3657 


CDCD:: 


:6 


1015 




CALL 


RDBYTE 


365A 


321A40 


1016 




LD 


( BSRAM ) , A 


36 5D 


C9 




1017 




RET 




365E 


0614 




1013 F 


=-Rl 


LD 


B,20 


3660 


CB1C: 


'•7 


1019 F 


S R2 


CALL 


CHKBRK 


3663 


ED7S 




1020 




IN 


A, (C) 


3665 


F260':: 


•6 


1021 




JP 


P,PR2 


3663 


CD1CS 


:7 


1022 F 


>R3 


CALL 


CHKBRK 


366B 


ED78 




1023 




IN 


A, (C) 


366D 


FA63:I 


■ 6 


1024 




JP 


M.PR3 


3670 


ED 78 




1025 F 


? R4 


IN 


A, (C) 


3672 


FA5E:! 


:6 


1 026 




JP 


M.PR1 
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3675 


ED78 


1027 


PR5 


IN 


A , ( C ) 


3677 


F27536 


1023 




•JP 


P,PR5 


367A 


3E06 


1 029 




LD 


A, 6 


36 7C 


3E06 


1 030 




LD 


A, 6 


367E 


CD 1937 


1031 




CALL 


WAIT 


3681 


ED78 


1032 




IN 


A » ( C ) 


3683 


F25E36 


1 033 




UP 


P,PR1 


3686 


ED78 


1 034 


PR6 


IN 


A , ( C ) 


3688 


FA8636 


1035 




JP 


M,PR6 


36 8 B 


C38E36 


R 1036 




■JP 


PR7 


368E 


3E05 


1037 


PR7 


LD 


A, 5 


3690 


CD 1937 


1 038 




CALL 


WAIT 


3693 


10DB 


1 039 




DJNZ 


PR4 


3695 


04 


1 040 




INC 


B 


3696 


ED78 


1041 




IN 


A, (C) 


3698 


F27536 


1042 




•JP 


P,PR5 


369B 


ED58 


1043 


PRS 


IN 


E , ( C ) 


369D 


FA9B36 


1044 




•JP 


M,PRS 


36A0 


3E00 


1045 




LD 


A>0 


36A2 


C3DF36 


R 1046 
1047 


• 


JP 


RBI 






1048 


;READ 


BLOCK OF 


HL 






1049 


; POINTED BY IX 








1050 


; ##* 


46/91 *** 




36A5 


CDCD36 


1051 


RBLOCK CALL 


RDBYTE 


36A8 


CO 


1 052 




RET 


NZ 


36A9 


CO 


1053 




RET 


NZ 


36AA 


DD7200 


1 054 




LD 


(IX),D 


36AD 


DD23 


1055 




INC 


IX 


36AF 


2B 


1 056 




DEC 


HL 


36B0 


00 


1057 




NOP 




36B1 


E5 


1 058 




PUSH 


HL 


36B2 


El 


1059 




POP 


HL 


36B3 


7C 


1 060 




LD 


A,H 


36B4 


B5 


1 06 1 




OR 


L 


36B5 


C2A536 


R 1062 




JP 


NZ, RBLOCK 


36B8 


CDCD36 


1063 




CALL 


RDBYTE 


36BB 


CO 


1 064 




RET 


NZ 


36BC 


3E02 


1065 




LD 


A, 2 


36BE 


CD 1937 


1 066 




CALL 


WAIT 


36C 1 


CDCD36 


1067 




CALL 


RDBYTE 


36C4 


CO 


1068 




RET 


NZ 


36C5 


3A1A40 


1069 




LD 


A, (BSRAM) 


36C8 


B7 


1070 




OR 


A 


36C9 


C8 


1071 




RET 


Z 


36 C A 


3E10 


1072 




LD 


A, 10H 


36CC 


C? 


1073 
1074 


• 


RET 








1075 


; READ 


BYTE IN D 






1 076 


; ##♦ 


29/58 *** 




36CD 


ED 78 


1077 


RDBYTE IN 


A, (C) 


36CF 


FAD636 


1078 




JP 


M , RBO 


36D2 


3E08 


1079 




LD 


A»08H 


36D4 


B7 


1 080 




OR 


A 


36D5 


C9 


1 08 1 




RET 




36D6 


ED58 


1082 


RBO 


IN 


E, <C> 


36D8 


FAD636 


1083 




JP 


M,RBO 
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36DB 


3A1A40 


1 084 




LD 


A, (BSRAM) 


36DE 


32 




1 085 




ADD 


A,D 


36DF 


321A40 


1 036 


RBI 


LD 


( BSRAM ) , A 


36E2 


0603 




1 037 




LD 


B,8 


36E4 


0608 




1088 




LD 


B,8 


36E6 


00 




1 089 


RB2 


NOP 




36 E 7 


3E03 




1 090 




LD 


A, 3 


36E9 


CD 1937 


1091 




CALL 


WAIT 


36EC 


7B 




1092 




LD 


A,E 


36ED 


2F 




1093 




CPL 




36EE 


ED53 




1 094 




IN 


E, CO 


36F0 


FAFB3 


6 


1 095 




■JP 


M,RB5 


36F3 


ED58 




1 096 


RB4 


IN 


E, (C) 


36F5 


F2F33 


6 


1097 




■JP 


P,RB4 


36F3 


C3033 


:7 


R 1098 




•JP 


RB6 


36FB 


ED58 




1 099 


RB5 


IN 


E , ( C ) 


36FD 


FAFB3 


■6 


1 1 00 




•JP 


M,RB5 


3700 


C3033 


n 


R 1 1 1 




JP 


RB6 


3703 


AB 




1 1 02 


RB6 


XOR 


E 


3704 


07 




1 1 03 




RLCA 




3705 


CB1A 




1 1 04 




RR 


D 


3707 


AF 




1 1 05 




XOR 


A 


3708 


1 ODC 




1 1 06 




D-JNZ 


RB2 


370A 


C9 




t 1 07 
1 1 OS 


" 


RET 










1109 


;READ TWO BYTES 


INTO 








1110 


; L AND 


D 










1111 


; **# 


46/58 


### 


37 OB 


CDCD36 


1112 


RDTWO 


CALL 


RDBYTE 


370E 


CO 




1113 




RET 


NZ 


370F 


6A 




1114 




LD 


L.D 


3710 


00 




1115 




NOP 




37 t 1 


3E02 




1116 




LD 


A,2 


3713 


CD 1 9: 


37 


1117 




CALL 


WAIT 


3716 


C3CD' 


36 


R 1113 
1119 




JP 


RDBYTE 








1120 


; #** 16A+43 **# 










1121 


; -*## 43 


*#•* 




371? 


3D 




1122 


WAIT 


DEC 


A 


371 A 


20FD 




1 1 23 




JR 


NZ,WAIT 


37 1C 


3A40: 


-!X 


1124 


CHKBRK 


LD 


A , ( BSBRK ) 


37 IF 


E604 




1125 




AND 


4 


3721 


cs 




1126 




RET 


Z 


3722 


OF 




1127 




RRCA 




3723 


Dl 




1128 




POP 


DE 


3724 


C9 




1129 




RET 




3723 


F5 




1130 


MTOFF 


PUSH 


AF 


3726 


AF 




1131 




XOR 


A 


3727 


ED79 




1132 




OUT 


( C ) i A 


3729 


3A12- 


+0 


1133 




LD 


A, (BSINTH) 


372C 


FEFB 




1134 




CP 


CEI 


372E 


2301 




1135 




JR 


Z.MT1 


3730 


FB 




1136 




EI 




3731 


Fl 




1 1 37 


MT1 


POP 


AF 


3732 


C9 




• 1133 




RET 




3733 


F6 




1 1 39 


MTONW 


DB 


0F6H 


3734 


AF 




1140 


MTON 


XOR 


A 
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3735 


E5 


3736 


2AB140 


3739 


23 


373A 


4E 


373B 


El 


373C 


2305 


373E 


ED73 


3740 


E60 1 


3742 


CO 


3743 


3C 


3744 


ED 79 


3746 


F3 


3747 


1 607 


3749 


1 802 


374B 


16 IF 


37 4D 


AF 


374E 


B7 


37 4F 


2004 


3751 


ED78 


3753 


E604 


3755 


1 0F7 


3757 


15 


3758 


20F4 


375A 


B7 


375B 


C9 



375C 


213640 


375F 


1 1 38 


3762 


1 600 


3764 


OA 


3765 


5F 


3766 


AE 


3767 


73 


3763 


A3 


3769 


2007 


376 B 


14 


376C 


2C 


376D 


CB01 


376F 


F3 


3770 


1 3F2 


3772 


5F 


3773 


C5 


3774 


0607 


3776 


CD6000 


3779 


CI 


377A 


OA 


377B 


A3 


377C 


C8 


377D 


C3FB03 


3730 


( 0000 ) 


Errors 


Range 


C o u n t 



1141 




PUSH 


HL 


1142 




LD 


HL , ( BSMEM ) 


1143 




INC 


HL 


1144 




LD 


Cf (HL) 


1145 




POP 


HL 


1146 




JR 


Z , MT2 


1147 




IN 


A, (C) 


1143 




AND 


1 


1149 




RET 


Nl 


1150 


MT2 


INC 


A 


1151 




OUT 


( C ) , A 


1152 




DI 




1153 




LD 


D,7 


1154 




OR 


ONDLY 


1155 


DELAY 


LD 


D,31 


1156 


ONDLY 


XOR 


A 


1157 


DLP 


OR 


A 


1158 




■JR 


NZ.DLi 


1159 




IN 


A, (C) 


1160 




AND 


04H 


1161 


DL1 


DJNZ 


DLP 


1162 




DEC 


D 


1163 




•JR 


NZ.DLP 


1164 




OR 


A 


1165 




RET 




1166 


■ 






1167 


; ##* #*♦ COVER 


THEIR ASS * 


1163 


• 






1169 


DEBNC 


LD 


HL.BSKS 


1170 




LD 


BCBSKEY 


1171 




LD 


D,0 


1172 


DBLP 


LD 


A, (BC) 


1173 




LD 


E,A 


1174 




XOR 


(HL) 


1175 




LD 


( HL ) , E 


1176 




AND 


E 


1177 




•JR 


NZ.DBDN 


1178 




INC 


D 


1179 




INC 


L 


1130 




RLC 


C 


1181 




RET 


M 


1132 




•JR 


DBLP 


1183 


DBDN 


LD 


E,A 


1184 




PUSH 


BC 


1 135 




LD 


B,7 


1186 




CALL 


BSDLY 


1187 




POP 


BC 


1133 




LD 


A , ( BC ) 


1189 




AND 


E 


1190 




RET 


Z 


1191 




JP 


BSKR 


1192 




END 
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ABT 

AUTO 

BASIC 

BFD 

BRKMSG 

8S1 

BSBGNP 

BSBRK 



BSC 

BSC 

BSC 

BSC 

BSC 



LD 

LR 

NW 

ONT 

SV 



BSDLY 

BSENDP 

BSERR 

BSEXE 

BSFCE 

BSFIND 

BSFIX 

BSHL 

BSIEXP 

BSINC 

BSINT 

BSINTH 

BSKEY 

BSK I 

BSKR 

BSKS 

BSLIN 

BSMAXP 

BSMEM 

BSPRN 

BS'PRTC 

BSRAM 



B:i 
Bi 
B:i 
Bi 
Bl 



>RDY 
SRST2 
5SFT 
5SYNE 
JFE 
BYTEMS 
EI 

ERRMS 
HI 
H3 
H4 
H5 
H6 

HECK 
HKBRK 
R 
DBDN 
DBLP 
DEBNC 
DELAY 
DL1 



0340 
0104 
004S 
033 1 
0S24 
0049 
0022 
0036 
002S 
00 1 8 
0029 
0010 
0027 
0033 
0023 
0009 
002 1 
0011 
0012 
0026 

00 1 3 

00 1 4 
0020 
0005 
0015 
0035 
0030 
0032 
0031 
0006 
0024 
0008 
0007 
00 1 7 
0004 

0019 
00 1 6 
0034 
0025 
0510 
0795 
0003 
0S07 
0117 
0126 
0133 
0143 
0161 
0111 
1124 
000 1 
1133 
1172 
1 1 69 
1155 
1161 



0318 
0057 
0143 
0357 
0340 
0107 
1 05 
0379 
0147 
0093 
0149 
0049 
0145 
1186 
0247 
0332 
1 1 3 
1 39 
0104 
0339 
0048 
0134 
0118 
0223 
1133 
1170 
0098 
1 1 9 1 
1169 
0241 
0238 
0080 
1 80 
0349 
0077 
1016 
0103 
0079 
0315 
0081 
0492 
0181 
1134 
0346 
0114 
0123 
0129 
0131 
0137 
0078 
1019 
0791 
1177 
1182 
0097 
0378 
1153 



0313 
0201 

0837 

0210 0235 0246 0324 0337 
1124 



0142 



0336 

0116 
0161 
0208 

0151 0163 0227 
0159 



0307 

0089 0152 0765 1142 

0347 0351 0356 

0353 0866 

0094 0407 0720 0885 0898 0946 0959 0961 0974 0985 

1069 1084 1086 



0083 0207 



1022 

0823 0825 0827 



0409 0887 
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DLP 


1157 


1161 


1163 






DONEMS 


0S26 


032S 








EOFMSG 


0S21 


0S54 








ERR 


0725 


0662 


0665 


0674 


0677 0688 0691 


ERRMSG 


0322 


0S5S 








ERROR 


0774 


0055 








FBOF 


0747 


0046 








FBOFX 


0731 


0050 


0749 






GETN 


1 56 


0056 


0172 


0138 


0232 


GT1 


0163 


1 53 








HEAD 


.0733 


0090 








INTGR 


0222 


1 95 


1 99 


0205 




LD1 


0251 


0245 








LD2 


0260 


025S 








LD3 


0261 


0265 


0266 


0269 




LD4 


0290 


0325 




• 




LD6 


0315 


0306 








LD7 


0319 


0312 


0314 


0317 




LOAD 


0232 


1 4S 








LOADA 


0233 


0102 








LOADS 


0322 


02S5 








LR1 


0327 


0221 


0321 


0335 




LR5 


0333 


0295 








LR6 


032S 


1 34 








LRTN 


0326 


0262 


0271 


0231 


0291 0300 


MT2 


1137 


1 1 35 








MT2 


1150 


1146 








MTOFF 


1130 


0327 


0387 


0453 


0503 0539 0578 


MTON 


1 1 40 


0260 


0377 


0478 


0734 


MTONW 


1139 


039S 


0525 


0576 


0603 


NEW 


0172 


0150 








NEWA 


0396 


0053 


0176 






NEWMSG 


0792 


0173 








NWO 


1 S3 


1 79 








NW 1 


0452 


0444 


0446 






NW11 


0453 


0400 


0405 


0412 


0415 0423 0436 


NW2 


0414 


0403 


0418 






NWS 


0419 


04 1 3 








NW4 


0420 


0420 








NW6 


0425 


0428 








NW7 


0429 


0432 








NWS 


0435 


0439 








NW9 


0441 


0451 








OMMSG 


0S09 


0S49 








ONDLY 


1156 


0543 


0744 


1154 




0P1 


0735 


0740 








0P2 


0741 


0736 








PE1 


0S57 


0S35 


0841 


0844 


0847 0850 0853 


PERRMS 


0S05 


0S43 








PR1 


1013 


1 OOS 


1 026 


1 033 




PR2 


1019 


1 02 1 








PR3 


1 022 


1024 








PR4 


1 025 


1 039 








PR5 


1027 


1 028 


1042 






PR6 


1034 


1 035 








PR 7 


1 037 


1 036 








PRS 


1043 


1044 









0708 



0699 0741 
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PRTERR 


0833 


0330 


0776 












PRTSTO 


0362 


0091 


0174 


0182 


0216 


0234 


0329 


034 1 


RBO 


1032 


1073 


1083 












RBI 


1 036 


1046 














RB2 


1039 


1106 














RB4 


1 096 


1097 














RB3 


1099 


1095 


1 1 00 












RB6 


1102 


1098 


1101 












RBLOCK 


1051 


0299 


0497 


1062 










RDBYTE 


1077 


0445 


0692 


0714 


0718 


1015 


1051 


1 063 


RDTWO 


1112 


0270 


0230 


0290 


0486 


0654 


0666 


0673 


READ 


0463 


0042 














READMS 


0300 


0233 














REWIND 


0375 


004 1 


0404 












RLP 


0479 
















RPREAM 


1 003 


026 1 


0414 


0435 


0479 


0605 


0646 


0735 


RRTN 


0503 


0430 


0484 


0487 


0498 


05 1 2 






RTNBS 


0336 


0311 














RWDF 


0337 


0382 














RWDL 


0379 


0335 














SAO 


1 39 


0133 














SA1 


0207 


0189 














SA2 


0203 


0192 














SA3 


0215 


0202 


0206 












3AVEA 


0590 


0045 


0220 












3AVEB 


1 38 


0146 














SELECT 


0756 


0047 


0138 












ST1 


0103 


0096 














START 


0071 
















3V1 


0605 


0609 














3V2 


0611 


0611 














3V3 ' 


0646 


0650 














SV4 


0692 


07 1 3 














3V5 


0706 


0695 














3V6 


0724 


0722 














SV7 


0717 


0717 














3VE 


0696 


0623 














SVEl 


0697 


0623 


0633 












3VEJ 


0623 


0604 


0606 


0613 


0618 








SVR 


0699 


0640 


0647 


0655 


0667 


0679 


0693 


0715 


SYNC 


0002 


0904 


1011 












TTSMSG 


0313 


0340 














VRFMSG 


0803 


0852 














WAIT 


1122 


1014 


1031 


1038 


1066 


1091 


1117 


1123 


WBEOF 


0559 


0054 














WBLOCK 


0917 


0538 


0632 












WEOF 


0570 


0052 


0564 












WEOFX 


0569 


0044 














WEWE 


0378 


0378 














WPMSG 


0817 


0834 














WPREAM 


0884 


0422 


0528 


0612 


0874 








WRBIT 


0973 


0427 


0430 


0893 










WRBITL 


0969 


0988 














WRBITS 


0970 


0889 


0953 












WRBLK 


0893 


0892 














WRBWT 


0984 


0984 














WRBY 


0939 


09 1 















0838 0357 0369 



1067 1112 111; 
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WRBYT 


0946 


0918 


0996 




i 




WRBYTE 


0945 


0905 


0930 


0935 


0945 


1003 


WRCLK 


0979 


0991 










WRITE 


0548 


0043 


0562 








WRITEX 


0519 


0O51 


0550 








WRITMS 


0797 


0215 










WRKWT2 


0S97 


0897 










WRLOP 


0911 


0924 










WRPRE 


0S74 


0411 


0577 


0639 






WRTN 


0539 


0526 


0529 


0534 






WRTWO 


0995 


0533 


0617 


0622 


0627 


0879 


WRTWT 


0953 


0958 










WRZRO 


0990 


0976 
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OOOO'' 






(7FFD- ) 


7500" 


( 0800 ) 


7D00-' 


( 0000 ) 


7D00 '' 


( 00 1 ) 




( 0000 ) 




( 0008 ) 


7D10- 


( 0020 ) 




( 0000 ) 




i 0008 ) 




( 00 1 ) 




(0018) 


7D30 " 


(0001 ) 



7D31 •- 


2AB140 


7D34- 


•"••■^ 


7D35-- 


7E 


7D36" 


E607 


7D38" 


4F 


7D39' 


0600 


7D3B- 


DD21007D 


7D3F-' 


DD09 


7D41 "■ 


2AE640 


7D44"' 


7E 


7D45-' 


FEB2 


7D47 •' 


2853 


7D49-" 


FE39 


7D4B' 


CA137E-' 


7D4E-' 


FEA2 


7D50" 


23 OD 


7D52-" 


FEA6 


7D54'' 


CA977E- 


7D57-' 


FEB8 


7.059- 


CA2A7F' 


7D5C 


C3FD7F' 



7D5F' DD7E00 

7D62- B7 

7D63 X C24A1E 

7D66" FD21107D" 

7D6A'' 010008 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 

00 1 4 

00 1 5 
0016 
0017 

00 1 8 

00 1 9 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
003 1 
0032 
0033 
0034 

' 0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 



t 

i STORAGE ALLOCATIONS FOR BUFFERS ETC. 



PREV 



ORG 
EQU 



$+7500H 

*+OAFDH ; VECTOR TO PREVIOUS MODUAL 



DS 

BUFFER DS 

■ 

DRVCTR DS 

DS EQU 

BN EQU 

BUFCTR DS 

BS EQU 

RC EQU 

RL EQU 

BP EQU 



!:#256 



STAT 



DS 



i.) 

16 




O 
3 
16 
24 

1 



JUP TO 8 BUFFERS, 256 EACH 



; DRIVE CONTROL BLOCK 

5 DRIVE STATUS 

? BUFFER # FOR THAT DRIVE 

; BUFFER CONTROL BLOCK 
; BUFFER STATUS 
; RECORD COUNT 
; RECORD LENGTH 
5BYTE POINTER 

■ERROR CODE FOR FD ERRORS 



SYNTAX SCAN 

TAPE LD HL, (BSMEM) 

INC HL 

LD A, (HL) 5 DRIVE PORT tt 

AND 7 

LD C.A 

LD B , 

LD IX, DRVCTR 

ADD I X , BC ; I X->DRVCTR 

LD HL, (BSHL) 

LD A, (HL) 

CP BSCPR 

JR Z, PR I NT 

CP BSCIN 

UP Z, INPUT 

CP BSCOP 

JR Z , OPEN 

CP BSCCL 

UP Z , CLOSE 

CP BSCCR 

JP Z , CLEAR 

UP PREV ; PREVIOUS MODUAL 

m 



; @C#DJOPEN N 



OPEN 



LD 
OR 
■JP 
LD 
LD 



A, (IX+DS) 

A ; TS DRIVE FREE? 
NZ, BSFCE ?N0, FC ERROR 
I Y, BUFCTR ; YES 
BC0300H -FIND A FREE BUFFhR 
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7D6D'' 


FD7E00 


0058 


L10 


LD 


A, (IY+BS) 






7D70'- 


B7 


0059 




OR 


A 






7D71-' 


2308 


0060 




JR 


Z,L11 






7D73" 


FD23' 


006 1 




INC 


IY 






7D75-- 


OC 


0062 




INC 


C 






7D76' 


1 0F5 


0063 




D.JNZ 


L10 






7D73" 


C34A1E 


0064 


L12 


JP 


BSFCE J NO FREE 


BUFFER, FC ERROR 


7D7B- 


C5 


0065 


Lll 


PUSH 


BC 






7D7C- 


CD2D30 


0066 




CALL 


ESFGTN ? GET 


FILE # N 


7D7F' 


23F7 


0067 




•JR 


Z.L12 ;N=0, 


FO 


ERROR- 


7D31" 


F5 


0068 




PUSH 


AF 






7D32' 


CD0F30 


0069 




CALL 


ESFFBF 5FIMD 


BE 


HI NN I NO OF FILE N 


7DS5 ' 


C2967F' 


0070 




JP 


NZ.BFD ;BAD, 


FD 


ERROR 


7D38" 


DD3 60001 


007 1 




LD 


(IX+DS), 1 




5 CLAIM THIS DRIVE 


7D8C -• 


Fl 


0072 




POP 


AF 






7D3D- 


FD7700 


0073 




LD 


( IY+BS) ,A 




J CLAIM THE BUFFER 


7D90" 


FD 36 08 00 


0074 




LD 


( I Y+RO ) , 






7D94- 


FD361000 


0075 




LD 


( IY+RL) ,0 






7D98 •" 


FD361300 


0076 




LD 


( I Y+BP ) , 






7D9C' 


CI 


0077 




POP 


BC 






7D9D - 


DD7108 


0078 




LD 


<IX+BN)»C 




; DRIVE TO BUFFER 


7DA0- 


09 


0079 
0030 


1 


RET 












008 1 


; ###*#***######**#***##*#**^*#*^*^*#^#*>-* 






0032 


7 














0033 


5 @C#D3PRINT 


LIST-OF-EXPRESSI 


HNS 








0084 


u 
7 










7DA1" 


DD7E00 


0085 


PRINT 


LD 


A, (IX+DS) 






7DA4" 


FE03 


0036 




OP 


3 






7DA6 • 


2809 


0087 




JR 


Z , L20 




WAS IT OUTPUT? 


7 DAS' 


FE01 


0038 




OP 


1 




•JUST OPENED? 


7DAA ■• 


024 A IE 


0089 




UP 


NZ, BSFCE 




NO, FC ERROR- 


7DAD' 


DD360003 


(I' 090 




LD 


(IX+DS) ,3 




MAKE IT OUTPUT 


7DB1-' 


0600 


0091 


L20 


LD 


B,0 






7DB3" 


DD4E08 


0092 




LD 


C, (IX+BN) 






7DB6 •' 


FD21107D' 


0093 




LD 


IY,BUFCTR 






7DBA' 


FD09 


0094 




ADD 


IY,BC 






7DBC 


41 


0095 




LD 


B,C 






7DBD- 


04 


0096 




INC 


B 






7DBE" 


DD21007D' 


0097 




LD 


I X , BUFFER 






7 DC 2" 


1 1 OOFF 


0093 




LD 


DE.-256 






7DC5 ' 


DD19 


0099 


L21 


ADD 


IX, DE 






7DC7' 


10FC 


1 00 




DJNZ 


L21 






7 DC 9' 


FD4E13 


0101 




LD 


0, (I Y+BP) 






7DCC ' 


DD09 


0102 




ADD 


I X , BC 






7DCE-' 


D7 


1 03 


L22 


RST 


1 OH 






7DCF - 


0D3723 


0104 




CALL 


BSEXPR ; EVALUATE EXPRESSION 


7DD2- 


3AAF40 


1 05 




LD 


A, (BSVART) 






7DD5-' 


CDD27E- 


0106 




CALL 


PUT 5 PUT VALUE TYPE IN BUFFER 


7DD8- 


112141 


0107 




LD 


DE , BSACC 






7DDB- 


FE03 


0103 




CP 


3 






7DDD- 


3809 


1 09 




•JR 


CL23 ;TYPE 


^i* i 


INTEGER- 


7 DDF" 


23 1 3 


0110 




JR 


Z , L26 5 TYPE 


vl' > 


STRING 


7 DEI' 


FE04 


0111 




CP 


4 






7DE3" 


2303 


0112 




■JR 


Z , L23 5 TYPE 


4, 


REAL 


7DE5 - 


111D41 


1 1 3 




LD 


DE,BSAOCD 


1 


DOUBLE 


7DE3' 


47 


1 1 4 


L23 


LD 


B,A 
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7DE9 y 


1A 





115 


7DEA' 


13 





116 


7DEB' 


CDD27E'' 





117 


7DEE-' 


1 0F9 


o 


118 


7DF0- 


7E 





119 


7DF1" 


FE2C 


o 


. 20 


7DF3- 


2SD9 





L21 


7DF5-' 


22E640 





22 


7DF8' 


C9 





'. ^--' 


7DF9- 


E5 


o 


L24 


7DFA-' 


1A 





125 


7DFB'' 


6F 


o 


L26 


7DFC" 


13 


o 


127 


7DFD- 


1A 





'^'!~i 


7DFE y 


67 





i 29 


7DFF-' 


7E 





L30 


7E00" 


CDD27E-' 





131 


7E03- 


•■?■-' 





i 32 


7E04-' 


5E 





1 33 


7E05" 


±Z'.z* 





134 


7E06 •' 


56 





135 


7E07- 


21B540 





1 36 


7EOA- 


22B340 


o 


137 


7E0D- 


El 





1 38 


7E0E' 


B7 





.39 


7EOF" 


28DF 





L40 


7E11- 


1SD5 





141 






0] 


L42 






0] 


L43 









L44 






0; 


L45 






0] 


L46 


7E13- 


D07E00 


o, 


L47 


7E16- 


FE02 


0] 


L48 


7E1S-' 


2309 


0] 


L49 


7E1A" 


FE01 





L50 


7E1C 


C24A1E 


01 


L51 


7E1F- 


DD360002 


0] 


L52 


7E23-" 


0600 


0. 


153 


7E25" 


DD4E03 


o 


154 


7E28- 


FD21107D' 


Oj 


155 


7E2C 


FD09 


Oi 


156 


7E2E" 


41 


0: 


.57 


7E2F-' 


04 


01 


158 


7E30" 


BD21007D-' 


01 


.59 


7E34" 


1 1 OOFF 


0: 


60 


7E37- 


BD19 


0: 


61 


7E39' 


10FC 


01 


62 


7E3B-' 


FD4E18 


01 


63 


7E3E' 


DD09 


0: 


64 


7E40- 


D7 


01 


65 


7E41- 


01717E-' 


01 


66 


7E44 •' 


C5 


01 


67 


7E45-' 


CD0D26 


01 


68 


7E4S- 


EB 


0: 


69 


7E49- 


22DF40 


0: 


170 


7E4C ■ 


EB 


0: 


.71 



L24 



L25 



L26 







PACE 0003 


LD 


A , ( DE ) 




INC 


DE 




CALL 


PUT 


J PUT TYPE IN BUFFER 


D.JNZ 


L24 




LD 


A, (HL) 




CP 


i 


;list seferator 


JR 


Z , L22 


?MORE IN LIST 


LD 


( B3HL ) , 


HL 


RET 


5 END OF 


COMMAND 


PUSH 


HL 


;FIND STRING 


LD 


A , ( DE ) 




LD 


L,A 




INC 


DE 




LD 


A, (DE) 




LD 


H,A 




LD 


A, (HL) 




CALL 


PUT 


5STR4NG LENGTH IN BUF 


INC 


HL 




LD 


E, (HL) 




INC 


HL 




LD 


Oi (HL) 




LD 


HL,BSTMP+2 


LD 


( BSTMP ) 


, HL 


POP 


HL 




OR 


A 




JR 


Z , L25 


;NULL STRING 


JR 


L23 


;PUT STRING IN BUFFER 



@C#DJ INPUT LIST-GF-VAREABLES 



INPUT LD A,(IX+DS) 

CP 2 

JR Z,L30 ;THIS WAS AN INPUT FILE 

CP 1 5 OR WAS IT JUST OPENED? 

JP NZ, BSFCE ;N0, FC ERROR 

LD (IX+03),2 -MAKE IT AN INPUT 

L30 LD B,0 

LD C.dX+BN) 

LD IYiBUFCTR 

ADD IY,BC 

LD B,C 

INC B 

LD IX, BUFFER 

LD DE,-256 

L31 ADD IX, DE 

DJNZ L31 

LD C, (IY+BP) 

ADD I X , BC 

L32 RST 1 OH 

LD BC.L35 5 RETURN ADDRESS 

PUSH BC 

CALL BSVAR ;FIND VARIABLE IN LIST 

EX DE.HL 

LD (BSADD).HL 

EX DE,HL 
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7E4D- 
7E4E' 
7E4F- 
7E50-' 

7E53 -' 

7E56"' 

7E39- 

7E5B- 

7E5D' 

7E5F' 

7E61" 

7E63' 

7E66'' 

7E67- 

7E6A- 

7E6B" 

7E6C- 

7E6E-- 

7E71- 

7E72-- 

7E74 - 

7E76' 

7E79' 

7E7A" 

7E7B y 

7E7E-' 

7ES1-' 

7E34" 

7E35-' 

7E39-' 

7E3A" 

7E3B' 
7E3C ■- 
7ESD- 
7ESE-- 

7E91- 
7E92-" 
7E93-' 
7E95 - 



D5 
E7 

F5 

CDB07F- 

32AF40- 

112141 

FE03 

3309 

23 IB 

FE04 

2303 

111D41 

47 

CDF67E- 

12 

13 

1 0F9 

0331 IF 

7E 

FE2C 

2S0A 

22E640 

C9 

E5 

0DF67E- 

2AB340 

222141 

77 

ED5BA740 

23 

73 



22B340 

El 

B7 

23D9 

1SCF 



7E97- 


D7 


7E93-' 


22E640 


7E9B-- 


0600 


7E9D" 


DD4E03 


7EA0-- 


FD21107D 


7EA4-' 


FD09 


7EA6 " 


DD7E00 


7EA9-- 


B7 


7EAA- 


C3 


7EAB-- 


FE03 


7EAD- 


201 A 


7EAF" 


FD7E13 


7EB2-" 


E5 



L33 
L34 



L37 
L35 



L36 



0172 

0173 

0174 

0175 

0176- 

0177 

0178 

0179 

0180 

0131 

0182 

1 33 

0184 

1 35 

0186 

0187 

0188 

1 89 

1 90 

1 9 1 

1 92 

1 93 

1 94 
0195 
1 96 
0197 

1 98 

1 99 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 

02 1 

02 1 1 
0212 
02 1 3 
0214 

0215 5 

0216 CLOSE 
0217 

02 1 3 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 



J FIND VARIABLE TYPE 



PUSH DE 

R3T 20H 

PUSH AF 

CALL GETYP ; GET TYPE FROM BUFFER 

LD (BSVART),A 

LD DE.BSACC 

CP 3 

JR CiL33 ; TYPE 2, INTEGER 

JR Z,L36 'TYPE 3, STRING 

CP 4 

•JR Z,L33 ?TYPE 4, REAL 

LD DE,BSACCD ; DOUBLE 

LD B,A 

CALL GET 5GET LENGTH FROM BUFFER 

LD ( DE ) , A 

INC DE 

D.JNZ L34 

UP BSLET ; ASS I ON VALUE TO VARIABLE 

LD A. (HL) ? RETURN TO HERE 

CP " , •' 5LIST 3EPERAT0R 

JR Z,L32 ?MORE IN LIST 

LD (BSHL),HL 

RET ?END OF COMMAND 

PUSH HL 

CALL GET -GET LENGTH FROM BUFFER 

LD HL,(BSTMP) 

LD (' BSACC ) , HL 

LD ( HL ) , A 

LD DE,(BSBUF) 

INC HL 

LD ( HL ) , E 

INC HL 

LD (HL>,D 

I NC HL 

LD (BSTMP),HL 

POP HL 

OR A 

JR Z,L37 5NULL STRING 

JR L33 5GET STRING FROM BUFFER 



; #*###*######■*############■£*#■*####•**■«•■**#♦ 



5 @C#DJCLOSE 



RST 10H 

LD ( BSHL ) , HL 

LD B,0 

LD C.UX+BIM) 

LD IY.BUFCTR 

ADD IY.BC 

LD A.UX+DS) 

OR A 

RET Z "DRIVE NOt ACTIVE 

CP 3 

JR NZ,L41 ? DRIVE WAS FOR INPUT 

LD A,(IY+BP) "WAS FOR OUTPUT 

PUSH HL 
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7EB3 y 


41 


0229 




LD 


B,C 




7EB4-' 


04 


0230 




INC 


B 




7EB5' 


21007D' 


023 1 




LD 


HL , BUFFER 


7EB3- 


1100FF 


0232 




LD 


DE , -256 




7EBB-" 


19 


0233 


L40 


ADD 


HL , DE 




7EBC- 


10FD 


0234 




D.JNZ 


L40 




7EBE" 


4F 


0235 




LD 


C, A 




7EBF-' 


FD7E00 


0236 




LD 


A, ( IY+B': 


>> ?A=FILE # 


7EC2- 


CD2730 


0237 




CALL 


ESFWBF 


; WRITE BUFFER AND EOF 


7EC5- 


C2967F-' 


0233 




JP 


NZ > BFD 


•DID NOT WORK, FD ERROR 


7EC3-- 


El 


0239 




POP 


HL 




7EC9" 


DD360000 


0240 


L41 


LD 


( IX+D3) , 


;SET DRIVE FREE 


7ECD' 


FD360000 


024 1 




LD 


( I Y+BS ) , 


j SET BUFFER FREE 


7ED1- 


C9 


0242 
0243 




RET 










0244 


; #####*###########*####***##*#*#*##•*#■**■*#-«• 






0245 


a 
7 












0246 


; PUT 


A BYTE 


IN BUFFER 








0247 


* 








7ED2- 


DD7700 


0243 


PUT 


LD 


< I X ) , A 




7ED5- 


DD23 


0249 




INC 


IX 




7ED7- 


FD3418 


0250 




INC 


( I Y+BP ) 




7EDA-' 


CO 


0251 




RET 


NZ 


5N0T FULL, JOB DONE 


7EDB- 


E5 


0252 




PUSH 


HL 


; BUFFER FULL 


7EDC- 


C5 


0253 




PUSH 


BC 




7EDD- 


F5 


0254 




PUSH 


AF 




7EDE-' 


0100FF 


0255 




LD 


BC-256 




7EE1' 


DD09 


0256 




ADD 


I X , BC 




7EE3-" 


DDES 


0257 




PUSH 


IX 




7EE5" 


El 


0258 




POP 


HL 




7EE6- 


1 000 1 


0259 




LD 


BC , 256 




7EE9-- 


CD0630 


0260 




CALL 


ESFWRT 


! WRITE BUFFER ON TAPE 


7EEC-' 


C2967F- 


0261 




•JP 


NZ,BFD 


5 OH , SH I T 


7EEF- 


FD3408 


0262 




INC 


( I Y+RC ) 




7EF2- 


Fl 


0263 




POP 


AF 




7EF3-' 


CI 


0264 




POP 


BC 




7EF4- 


El 


0265 




POP 


HL 




7EF5"' 


C9 


0266 
0267 


7 


RET 










0268 


; ###***#**###*#*** ******^*#***#******^**-«- 






0269 


a 
J 












0270 


; GET 


A BYTE 


FROM BUFFEF 








0271 


m 
7 








7EF6-' 


C5 


0272 


GET 


PUSH 


BC 




7EF7' 


FD7E13 


0273 




LD 


A, ( I Y+BP) 


7EFA' 


B7 


0274 




OR 


A 




7EFB' 


2025 


0275 




JR 


NZ.L62 


?POINTER>0 


7EFD'- 


E5 


0276 




PUSH 


HL 


? =0, BUFFER EMPTY 


7EFE'' 


DDES 


0277 




PUSH 


IX 




7F00'' 


El 


0278 




POP 


HL 




7F01' 


1 000 1 


0279 




LD 


BC256 




7F04 - 


CD0330 


0280 




CALL 


ESFRED 


5 READ A RECORD FROM TAPE 


7F07-' 


C2917F' 


0231 




•JP 


NZ , ERR 


;OUT OF DATA OR REAL BAD'- 


7F0A'' 


FD7110 


0282 




LD 


(IY+RL),' 


C 


7F0D' 


FD3403 


0283 




INC 


( I Y+RC) 




7F10- 


El 


0284 




POP 


HL 




7F 1 1 "■ 


DD7E00 


0235 


L60 


LD 


A , ( I X > 


;GET THE BYTE 



ESF DATA I/O FOR TRS-80 
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7F14' 


DD23 


0286 




INC 


IX 


7F16' - 


FD3418 


0287 




INC 


(IY+BP) 


7F19'' 


2005 


0238 




JR 


NZ.L61 


7F1B-' 


0100FF 


0289 




LD 


BC-256 


7F1E' 


DD09 


0290 




ADD 


I X » BC 


7F20- 


CI 


0291 1 


_61 


POP 


BC 


7F21- 


C9 


0292 




RET 




7F22 y 


FDBE10 


0293 L62 


CP 


(IY+RL) ?MAY BE END OF DATA 


7F25' 


CAA022 


0294 




JP 


Z.BSODE JYES, CD ERROR 


7F28'" 


1 3E7 


0295 
0296 




■JR 


L60 1NQ, GO AHEAD 






0297 

AOQO 


**#****#****##***##**##########*##*#•«.**..*. 






0299 , 


©CLEAR CN3 






\ 


0300 








7F2A - 


CD2D30 


030 1 •: 


:lear 


CALL 


ESFGTN ?GET VALUE OF N 


7F2D- 


F5 


0302 




PUSH 


AF 5 SAVE IT 


7F2E- 


FE09 


0303 




CP 


9 


7F30" 


D24A1E 


0304 




•_iP 


NCBSFCE ?N>3, FC ERROR 


7F33'' 


22E640 


0305 




LD 


( BSHL ) , HL 


7F36 - 


0603 


0306 




LD 


B , 8 


7F38- 


DD21007D'- 


0307 




LD 


IX.DRVCTR 


7F3C" 


DD360000 


0308 L71 


LD 


( I X+DS ) , ; FREE ALL DR I VES 


7F40-" 


DD7E10 


0309 




LD ' 


A, ( IX+BUFCTR-DRVCTR) 


7F43' 


3C 


0310 




INC 


A j IS BUFFER ALLOCATED? 


7F44- 


2804 


0311 
0312 




•JR 


Z,L77 j NO, DON'T TOUCH IT 

5EL3E, FREE THIS BUFFER 


7F46'' 


DD36 1 000 


0313 




LD 


(' I X+BUFCTR-DRVCTR ) , 


7F4A' 


DD23 


0314 L77 


INC 


IX 


7F4C- 


10EE 


03 1 5 




DJNZ 


L71 


7F4E' 


2AB140 


03 1 6 




LD 


HL, (BSMEM) 


7F51- 


'■?-7> 


0317 




INC 


HL 


7F52-' 


36F0 


0318 




LD 


<HL),OFOH ;SET DRIVE # TO 


7F54'' 


Fl 


03 1 9 




POP 


AF ; OPTIONAL N 


7F55-" 


C3 


0320 




RET 


Z ;N=0 or not THERE 


7F56 -' 


21177D" 


0321 




LD 


HL,BUFCTR+BS+7 


7F59'' 


0608 


0322 




LD 


B,3 


7F5B- 


36FF 


0323 L72 


LD 


( HL > , OFFH 


7F5D-- 


BS 


0324 




CP 


B 


7F5E'' 


3802 


0325 




JR 


CL73 


7F60'' 


3600 


0326 




LD 


(HL),0 5SET N OF THEM FREE 


7F62'- 


2B 


0327 L73 


DEC 


HL 


7F63 y 


1 0F6 


0328 




DJNZ 


L72 


7F65' 


21FB7C" 


0329 




LD 


HL,BUFFER-5 ; COMPUTE HIGHEST 


7F6S' 


1 1 OOFF 


0330 




LD 


DE.-256 5 ADDR FOR BASIC 


7F6B'- 


47 


0331 




LD 


B,A 


7F6C 


19 


0332 L74 


ADD 


HL , DE 


7F6D'" 


10FD 


0333 




DJNZ 


L74 


7F6F' 


22B140 


0334 




LD 


( BSMEM ),HL ;GIVE IT TO BASIC 


7F72'' 


31F07C- 


0335 




LD 


SP, BUFFER- 16 


7F75' 


23 


0336 




INC 


HL 


7F76' 


36F0 


0337 




LD 


(HL),OFOH 5 PORT # AND 


7F7S' 


23 


0333 




INC 


HL 


7F79' 


•;>6Co 


0339 




LD 


( HL ) , 0C3H ; JUMP I NS TR . 


7F7B" 




0340 




INC 


HL 


7F7C 


22337F- 


034 1 




LD 


(L75+1 ) ,HL 


7F7F- 


21317D' 


0342 




LD 


HL,TAPE 
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7F82-' 220000 
7F35-" 113200 
7F88' CD831E 



7F8B' 
7FQE' 



2AE640 
C31E1D 



7F91- 


FE04 


7F93' 


CAA022 


7F96 - 


5F 


7F97-' 


32307D 


7F9A' 


2AF040 


7F9D-' 


7C 


7F9E- 


B5 


7F9F- 


2806 


7FA1-' 


3AF240 


7FA4- 


B7 


7FA5 •- 


2804 


7FA7" 


7B 


7FA3- 


CD2A30 


7FAB- 


1E2A 


7FAD" 


C3A 1 1 9 



7FB0- 


CDF67E 


7FB3-- 


FE02 


7FB5-' 


38F4 


7FB7' 


FE05 


7FB9' 


DS 


7FBA" 


FE08 


7FBC'- 


C8 


7FBD- 


18EC 



( 40E6 ) 
( 19A1) 
(2337) 
(4121) 
(411D) 
(40B1 ) 
(1E4A) 
( 40AF ) 
( 260D ) 
( 40DF > 
(1F31) 
( 40B3 ) 
(40A7) 
( 1 ESS > 



0343 

0344 

0345 

0346 

0347 

0348 

0349 

0350 

0351 

0352 

0353 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

036 1 

0362 

0363 

0364 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0331 

0382 

0-383 

0384 

0335 

0386 

0337 

0388 

0389 

0390 

039 1 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 



L75 



LD 

LD 

CALL 

LD 

JP 



( ) , HL 
DE,50 
BSCLR 
HL, (BSHL) 
BSCONT 



5 CLEAR 50 



5BACK TO BASIC 



; OUT OF DATA OR BAD FILE DATA 
ERR 



BFD 



CP 


04H 




; IS IT EOF ERROR 


UP 


Z , BSODE 




■YES, OD ERRER 


LD 


E,A 




;BAD FILE DATA 


LD 


< STAT ) , A 




;SAVE ERROR CODE 


LD 


HL, (BSONEL) 




; ON ERROR GOTO ? 


LD 


A,H 






OR 


L 






■JR 


Z.L81 






LD 


A, (BSONEF) 




;FLAG SET? 


OR 


A 






■JR 


Z , FDE 






LD 


A,E 5 PR INT 


ESF ERROR MSG 


CALL 


ESFPRI 






LD 


E > 2AH ; FD 


ERROR CODE 


UP 


BSERR 







LSI 
FDE 

GET DATA TYPE FROM BUFFER 
GETYP 



CALL 


GET 


5 GET A BYTE 


CP 


2 




•JR 


CFDE 


;TYPE MUST >= 2 


CP 


5 




RET 


C 


J AND < 5 


CP 


•Z" 




RET 


z 


OR = S 


•JR 


FDE 





LINKS TO BASIC INTERPRETER 



BSHL EGU 

BSERR EQU 

BSEXPR EQU 

BSACC EQU 

BSACCD EQU 

BSMEM EQU 

BSFCE EQU 

BSVART EQU 

BSVAR EQU 

BSADD EQU 

BSLET EQU 

BSTMP EQU 

BSBUF EQU 

BSCLR EQU 



40E6H 
19A1H 
2337H 
4121H 
411DH 
40B1H 
1E4AH 
40AFH 
260DH 
40DFH 
1F31H 
40B3H 
40A7H 
1ES3H 



ESF DATA I/O FOR TRS-SO 



(101E) 
( 22A0 ) 
(40F0) 
(40F2) 



( 0OB2 ) 
( 0089 ) 
( 00A2 ) 
( 00A6 ) 
( 00 BS ) 



(3003) 
< 3006 ) 
(300F) 
( 3027 ) 
( 302D ) 
( 302A ) 

7FBF-' (0000) 

•Errors 

Program Length 



0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 
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BSCONT 


EQU 


1D1EH 




BSODE 


EQU 


22 A OH 




BSONEL 


EQU 


40F0H 




BSONEF 


EQU 


40F2H 





; #**##*###*####»#####*#*-***##*##*#*###-s--K-#-* 



; TOKENS FOR BASIC 



BSCPR 
BSCIN 
BSCOP 
BSCCL 
BSCCR 



EQU 
EQU 
EQU 
EQU 
EQU 



0B2H 
089H 
0A2H 
0A6H 
0B8H 



7 

; LINKS TO ESF FIRMWARE 



ESFRED EQU 

ESFWRT EQU 

ESFFBF EQU 

ESFWBF EQU 

ESFGTN EQU 

ESFPRI EQU 

a 

END 



3003H 
3006H 
300FH 
3027H 
302DH 
302AH 



7FBF (32703) 



ESF DATA I/O FOR TRS-80 
CROSS REFERENCE LISTING 
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BFD 

BN 

BP 

BS 

BSACC 

BSACCD 

BSADD 

BSBUF 

BSCCL 

BSCCR 

BSCIN 

BSCLR 

BSCONT 

BSCOP 

BSCPR 

BSERR 

BSEXPR 

BSFCE 

BSHL 

BSLET 

BSMEM 

BSODE 

BSONEF 

BSONEL 

BSTMP 

BSVAR 

BSVART 

BUFCTR 

BUFFER 

CLEAR 

CLOSE 

DRVCTR 

DS 

ERR 

ESFFBF 

ESFGTN 

ESFPRI 

E3FRED 

ESFWBF 

ESFWRT 

FOE 

GET 

GETYP 

INPUT 

L 1 

Lll 

L12 

L20 

L21 

L22 

L23 

L24 

L25 

L26 

L30 

LSI 

L32 



0355 

0013 

0019 

0016 

03S9 

0390 

0395 

0398 

0412 

0413 

04 1 

0399 

0400 

0411 

0409 

03S7 

038S 

0392 

0386 

0396 

0391 

0401 

0403 

0402 

0397 

0394 

0393 

0015 

0009 

030 1 

02 1 6 

0011 

00 1 2 

0352 

0421 

0423 

0424 

0419 

0422 

0420 

0366 

0272 

0373 

0147 

0058 

0065 

0064 

009 1 

0099 

0103 

0114 

0115 

0119 

0124 

1 53 

1 6 1 

0165 



0070 
0078 
0076 
0058 
0107 
0113 
0170 
0200 
0043 
0045 
0039 
0345 
0347 
0041 
0037 
0367 

1 04 
0055 
0035 
1 89 
0027 
0294 
0361 
0357 
1 36 
01 63 

1 05 
0056 
0097 
0046 
0044 
0033 
0053 
0281 
0069 
0066 
0365 
0230 
0237 
0260 
0363 
01 35 
0175 
0040 
0063 
0060 
0067 
0087 
0100 
0121 
0109 
0118 
0140 
0110 
0149 
0162 
0192 



0238 0261 

0092 0154 0219 

0101 0163 0227 0250 0273 0287 

0073 0236 0241 0321 

0177 0198 

1 83 



0064 0089 0151 0304 
0122 0193 0217 0305 0346 

0316 0334 
0353 



0137 0197 0206 

0176 

0093 0155 0220 0309 0313 0321 

0159 0231 0329 0335 



0307 0309 0313 

0071 0085 0090 0147 0152 



0301 



222 0240.0308 



0375 0380 
0196 0373 



0112 0141 



ESF DATA I/O FOR TRS-80 PA * E ° 010 

CROSS REFERENCE LISTING 



L33 


01S4 


0179 


0182 


0210 


L34 


0185 


0133 






L35 


0190 


0166 






L36 


1 95 


1 80 






L37 


1 89 


0209 






L.40 


0233 


0234 






L41 


0240 


0226 






L60 


0285 


0295 






L61 


0291 


0288 






1.62 


0293 


0275 






L71 


0308 


0315 






L72 


0323 


0328 






L73 


0327 


0325 






L74 


0332 


0333 






L75 


0343 


034 1 






L77 


0314 


03 1 1 






LSI 


0364 


0360 






OPEN 


0053 


0042 






PREV 


0006 


0047 






PRINT 


0085 


0038 






PUT 


0248 


0106 


0117 


0131 


RC 


00 1 7 


0074 


0262 


0283 


RL 


00 1 8 


0075 


|V">00 


0293 


STAT 


0021 


0356 






TAPE 


0027 


0342 







